阅读下列FORTRAN程序: DIMENSION A(3,4) DATA A/3*+4.0,3*-3.0,3*-2.0,3*-1.0/ S=0.0 DO 20 K=1,3 D=A(K,1) DO 10J=2,4

admin2010-06-22  37

问题 阅读下列FORTRAN程序:    DIMENSION  A(3,4)    DATA  A/3*+4.0,3*-3.0,3*-2.0,3*-1.0/    S=0.0    DO  20  K=1,3    D=A(K,1)    DO  10J=2,4    IF(A(K,J)<D) D=A(K,J)    10   CONTINUE         S=S+D    20   CONTINUE         WRITE(*,*) S         END

选项 A、-15.0
B、-12.0
C、9.0
D、6.0

答案B

解析
转载请注明原文地址:https://kaotiyun.com/show/LSNf777K
0

最新回复(0)