Объявлена подпрограмма subroutine InitST(name, stat, param, index, vector) character(*) name logical stat real param integer index complex vector(1000) ... end subroutine InitST
Какие вызовы подпрограммы являются верными, если complex Z(1000)
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
call InitST('M', Z(2)<(1.0,2.0), 0.0, 5, Z)
call InitST('ASKOP', sum(Z)==(0.0,1.0), real(maxval(Z)), 0, 1-Z)
call InitST('QUESTION', .FALSE., real(sum(Z)), 0, 1-Z)(Верный ответ)
call InitST('InitST', .TRUE., sum(aimag(Z)), 1, Z)(Верный ответ)
call InitST("AS098R", maxval(Z), asin(0.0), 0, Z*2)