有程序:K=0DO10I=1,6,2DO10J=1,6,3IF(K.LT.I*J)K=I*J10CONTINUEWRITE(*,*)KEND此程序执行后的输出结果为:()
当输入1.5,2.5,3.5,4.0下列程序执行后的输出结果为()。 DIMENSIONA(2,2) READ(*,*)A SUM=0 DO10I=1,2 DO20J=I,2 K=A(I,J)*I*J 10A(1,2)=K WRITE(*,*)A(2,1) END
免费的网站请分享给朋友吧