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

阅读下列FORTRANN77程序：

INTEGERB(4，5)

DATAB/11，20，15，1，9，12，18，2，6，8，

*10，3，22，15，21，3，17，9，35，4/

K＝S(B，4，5)

WRITE(*，*)K

END

FUNCTION S(A，M，N)

INTEGER A(M，N)，D，P

D0100L＝1，M

P＝A(L，1)

K＝1

DO10J＝1，N

IF(A(L，J).LT.P)THEN

P＝A(L，J)

K＝J

END IF

10CONTINUE

D＝A(1，K)

D020J＝1，M

IF(A(J，K).GT.D)D＝A(J，K)

20CONTINUE

IF(P.EQ.D)THEN

S＝P

G()TO200

正ND IF

100CONTINUE

200END

运行上述程序后，输出的K的值为()。

(A) 1

(B) 10

(D) 3

参考答案

您可能感兴趣的试题

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

答案解析
阅读下列FORTRAN77程序：INTEGERAA（2.3)DATAAA／1，2，3，4，5，6／CALLS2D19（AA)CALLS2D19（AA（1，2))ENDS

答案解析
阅读下列FORTRAZ77程序：INTEGER FF（X，Y)＝X＋YA＝－2.5B＝4.0B＝1.0＋F（A，B)WRITE（*，20)B20 FORMAT（1X，F

答案解析
阅读下列FORTRAN77程序：INTEGERB（4，4)，PN＝4CALLSUB（B，N)WRITE（*，*)P（B，N)ENDSUBROUTINESUB（Q，N)I

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

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

答案解析