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

问题 阅读以下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://jikaoti.com/ti/nzPhFFFM
0

相关试题推荐
随机试题
最新回复(0)