阅读FORTRAN 程序 DIMENSION M(4 3) DATE M/-10 12 24 11
阅读FORTRAN 程序
DIMENSION M(4,3)
DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/
N(M(1,1)
DO 10I=1,4
DO 10J=1,3
IF (M(I,J).LT.N) THEN
N=M(I,J)
K1=I
K2=J
ENDIF
10 CONTINUE
WRITE(*,’(2x,314)’) N,K1,K2
END
程序运行后的输出结果是:
(A)93,3,1 (B)-10,1,1
(C)-45,4,3 (D)78,3,2