Объявлена подпрограмма recursive subroutine proc(param, p, A, B, C) real param logical p real A(:), B(:), C(:) ... end subroutine proc
Какие вызовы подпрограммы являются верными, если real X(1000), Y(1000), Z(1000)
(Отметьте один правильный вариант ответа.)
Варианты ответа
call proc(maxval(X), sum(Z)<100, X*Y, Y*Z, X+Y-Z)
call proc(3.0, 3==0, X(::2), Y(2::3), Z(::3))(Верный ответ)
call proc(asin(1.0), .FLASE., sin(X), cos(Y), sqrt(Z))
call proc(sum(X(2::4)), .TRUE., X, Y)
call proc(.TRUE., 1.0, X+Y, Y+Z, X*Z)