阅读下列FORTRAN77程序:DIMENSIONA(4,3)COMMON/P/AP=0.0D010K=1,3D010J=1,31F(P.LE.5.0)P=P+A(J,
阅读下列FORTRAN77程序:
DIMENSIONA(4,3)
COMMON/P/A
P=0.0
D010K=1,3
D010J=1,3
1F(P.LE.5.0)P=P+A(J,K)
10CONTINUE
WRITE(*,*)P
END
BL()CKDATAABC
DIMENSIONB(4,3)
COMMON/P/B
DATAB/4×4.0,4×-3.0,4×2.0/
END
运行上述程序后,输出的P值为()。
(A)8.0
(B)7.0
(C)5.0
(D)4.0