单选题
阅读下列FORTRAN程序:
DIMENSION M(6)
READ(*,*)M
DO 10 J=1,6
DO 10 K=J,6
IF(M(K)LTM(J))THEN
N=M(K)
M(K)=M(J)
M(J)=N
END IF
10 CONTINUE
WRITE(*,10)(M(I),I=1,6)
100 FoRMAT(2X,614)
END
键盘输入10,7,9,2,1,3;程序运行后的输出结果是:
A.1 2 3 7 9 10
B.10 9 7 3 2 1
C.7 9 2 1 3 10
D.3 1 2 9 7 10
A
B
C
D
【正确答案】
A
【答案解析】
数组赋值以后,各数组元素的值为:
M(1)=10,M(2)=7,M(3)=9,M(4)=2,M(5)=1,M(6)=3。
当循环一次后M(1)的值就确定下来了,因此不需要再做下去。此时M(1)=1。
提交答案
关闭