阅读以下FORTRAN程序:
INTEGERX(7)
DATAX/10,20,45,70,80,15,14/
M/X(l)
DO101=2,7
IF(X(I).GIM)THEN
M=X(I)
K=1ENDIF10CONTINUE
N=X(K)
X(K)=X(I)
X(I)=N
WRITE(*,100)(X(I),I=1,7)
100FORMAT(2X,713)
END程序运行的结果是:
欢迎免费使用小程序搜题/刷题/查看解析,提升学历,成考自考报名,论文代写、论文查重请加客服微信skr-web
阅读以下FORTRAN程序:
INTEGERX(7)
DATAX/10,20,45,70,80,15,14/
M/X(l)
DO101=2,7
IF(X(I).GIM)THEN
M=X(I)
K=1ENDIF10CONTINUE
N=X(K)
X(K)=X(I)
X(I)=N
WRITE(*,100)(X(I),I=1,7)
100FORMAT(2X,713)
END程序运行的结果是:
A.10 20 45 70 80 15 14
B.14 20 45 70 80 15 10
C.80 20 45 70 10 15 14
D.20 45 70 80 15 14 10
正确答案C
×
提示:小程序已经收录此题,请在小程序查看名师解析。翰林刷小程序提供搜题,刷题,助你轻松通过考试