阅读以下FORTRAN程序： INTEGERX(7) DATAX／10，20，45，70，80，15，14／ M／X(1) DO10I=2．7 IF(X(I)．GIM)THEN M：X(I) K=1 ENDIF 10CONTINUE N=X(K) X(K)

admin2008-02-07 19

问题阅读以下FORTRAN程序：
INTEGERX(7)
DATAX／10，20，45，70，80，15，14／
M／X(1)
DO10I=2．7
IF(X(I)．GIM)THEN
M：X(I)
K=1
ENDIF
10CONTINUE
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。

转载请注明原文地址:https://kaotiyun.com/show/Jtwf777K

本试题收录于：供配电（公共基础）题库注册电气工程师分类