阅读以下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程序运行的结果是:

题目类型: 单选题

题目内容

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

题目解析

解利用DATA语句赋值,X(1)=10,X(2)=20,X(3)=45,X(4)=70,X(5)=80,X(6)=15,X(7)=14。 答案:C

题目纠错