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

参考答案

您可能感兴趣的试题

下面程序段的运行结果是（) 。DIMENSION M（3 ， 3)DATA M／1 ， 2 ， 3 ， 4 ， 5 ， 6 ， 7 ， 8 ， 9／DO 1

答案解析
阅读下列FORTRAN77程序：PI＝3.14159265WRITE（*，‘（F7.4)’)PIEND程序运行后输出结果是（)。（A) 3.142（

答案解析
阅读下列FORTRAN77程序：EXTERNALPPINTEGER P，PP，Q（4，4)DATAQ／1，2，3，4，5，6，7，8，9，10，11，12，13，14，

答案解析
阅读下列FORTRANN77程序：INTEGERB（4，5)DATAB／11，20，15，1，9，12，18，2，6，8，*10，3，22，15，21，3，17，9，3

答案解析
阅读下列FORTRAN77程序：DIMENSIONM（3，4)DATAM／4*2，4*1，4*－1／N＝0D010K＝1，410N＝N十M（1，K)WRITE（*，*

答案解析
阅读下列FORTRAN程序:INTEGER X(7)DATA X/4 5 7 8 10 12 11

答案解析