阅读下列FORTRAN程序:DIMENSIONA(3,4)DATAA/3*+4.0,3*-3.0,3*-2.0,3*-1.0/S=0.0DO20K=1,3D=A(K,1

阅读下列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

时间:2023-02-02 03:46:45

相似题目