阅读下列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值为()。
我来回答:
最新试题
订单号: