问题 单项选择题

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

C.35

D.3

答案

参考答案:B

解析:

主程序中的二维数组B作为实参与函数的形参二维数组A对应。

[点评] 该题考察Fortran的函数调用和循环

选择题
单项选择题