阅读下列FORTRAN程序: INTEGER S(2,4) ,A(2) DATA S/4*1,4*2/ CALL SUB(S,2,4,A) M=A(1) -A(2) WRITE(*

admin2010-06-22  23

问题 阅读下列FORTRAN程序:        INTEGER  S(2,4) ,A(2)        DATA  S/4*1,4*2/        CALL  SUB(S,2,4,A)        M=A(1) -A(2)        WRITE(*,*) M        END        SUBROUTINE  SUB(S,N,K,A)        INTEGER  S(N,K),A(N)        DO  20  I=1,N        A(I)=0        DO  10  J=1,K    10  A(I)=A(I)+S(I,J)        A(I)=A(I)/K    20  CONTINUE        END    执行上述程序后,输出的M值为(    )。

选项 A、0
B、1
C、2
D、3

答案B

解析
转载请注明原文地址:https://jikaoti.com/ti/xCEhFFFM
0

最新回复(0)