题目类型:
单选题
题目内容
阅读以下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程序运行的结果是:
正确答案
C
题目解析
解利用DATA语句赋值,X(1)=10,X(2)=20,X(3)=45,X(4)=70,X(5)=80,X(6)=15,X(7)=14。
答案:C