阅读下列FORTRAN程序:INTEGERS(2,4) ,A(2)DATAS/4*1,4*2/CALLSUB(S,2,4,A)M=A(1) -A(2)WRITE(*,*
阅读下列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