有程序:DIMENSIONA(4,3) DATAA/3*-1.0,3*-2.0,3*-3.0,3*-4.0/ S=0.0 D010K=1.4D—ABS(A(K,1)) D02

有程序:DIMENSIONA(4,3) DATA A/3*-1.0,3*-2.0,3*-3.0,3*-4.0/ S=0.0 D0 10 K=1.4D—ABS(A(K,1)) D020J=2.3IF(ABS(A(K,J)).GT.D)D=ABS(A(K,J)) 20 CONTINUE S=S+D 10 CONTINUE WRITE(*,*)SEND 此程序执行后的结果为: A.15.0 B.12.0 C.9.0 D.10.0

时间:2023-10-06 10:20:41

相似题目