问题
阅读下列FORTRAN77程序:DIMENSIONA(3,3)D0100K=1,3D0100J=1,3100A(K,J)=K+JS=P(A,2,8)WRITE(*,*)
阅读下列FORTRAN77程序:
DIMENSIONA(3,3)
D0100K=1,3
D0100J=1,3
100A(K,J)=K+J
S=P(A,2,8)
WRITE(*,*)S
END
FUNCTIONP(B,M,N)
DIMENSIONB(N)
P=0.0
D010K=M,N
10P=P+B(K)
END
运行上述程序后,输出的S值为()。
(A) 20.0
(B) 24.0
(C) 28.0
(D) 32.0