免费注册 手机版 网站地图 小工具

学而优·知识库

首 页
阅读下列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
(C) 35
(D) 3
参考答案

关闭

前往注册

我已注册,登录账号 继续查看答案