Объявлена подпрограмма subroutine ModifyMassiv(A,B,st,sp,status) real, intent(in) :: A(:) complex, intent(out) :: B(:,:,:) integer, intent (in) :: st,sp integer, optional, intent(in) :: status ...end subroutine ModifyMassiv
Какие вызовы подпрограммы являются верными, еслиreal S(1000) complex Q(100,100,100) integer ik, k1, jk
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
call ModifyMassiv(S,Q(::4,::4,::5), jk+ik+k1, int(sum(Q(:,:,::5))), status=5)(Верный ответ)
call ModifyMassiv(S(100::2),Q(::2,::2,::2), jk, status=5)
call ModifyMassiv(S,Q,1000,0,0,status=5)
call ModifyMassiv(S(1:100:2),Q(:,:,::2),k1,int(sum(S)), status=5)(Верный ответ)
call ModifyMassiv(4*S,3*Q,1000,1110,status=5)