阅读 下列FORTRAN程序：DIMENSION M （6）READ（*，*）MDO 10J=1，6

阅读 下列FORTRAN程序：DIMENSION M （6）READ（*，*）MDO 10J=1，6DO 10K=J，6IF（M （K） .LT.M （J） ）THENN=M（K）M（K）=M（J）M（J）=NEND IF10 CONTINUEWRITE（*,100）（M（）,I=1,6）100 FORMAT（2X,614）END键盘输入10，7,9，2，1，3；程序运行后的输出结果是：

A、1237910

B、109732 1

C、7921310

D、31297 10

参考答案

【正确答案：A】

数组赋值以后，各数组元素的值为： M （1） =10， M （2） =9， M （3） =9,M （4） =2， M （5） =1, M （6） =3。 当循环一次后M （1） 的值就确定下来了，因此不需要再做下去。此时M （1） =1。