Выберите процедуры, которые можно объявить элементными.
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
subroutine Make(A) real A A=2*A+A**2 end subroutine Make
subroutine SMA(a,b,c,d) real, intent(in) :: a,b complex, intent(out) :: c,d complex, parameter :: i=(0.0,1.0) c=a**b**i d=abs(sin(a))**i*b end subroutine SMA(Верный ответ)
character function SMB(str) character(*) str SMB=str(1:1) end function SMB
integer function pr(a,b,c) real,intent(in) :: a,b,c pr=a+b**c end function pr(Верный ответ)
real function SumNew(A) real A(:), s do k=1,size(A) s=s+k end do SumNew=s end function SumNew