阅读下列FORTRAN 程序： DIMENSION M（6） READ(* *)M DO 10 J

阅读下列FORTRAN 程序：

DIMENSION M（6）

READ(*，*)M

DO 10 J=1，6

DO 10 K=J，6

IF(M（K）.LT.M（J）)THEN

N=M(K)

M(K)=M(J)

M(J)=N

END IF

10 CONTINUE

WRITE(*,100)(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

参考答案

您可能感兴趣的试题

阅读以下FORTRAN程序 READ（*,*)M,NK=MOD（M,N)M=NN=KK=MOD（M,N)GOTO 10END IFWRITE（*,*)NEND若运

答案解析
阅读以下FORTRAN程序：READ（*，*)M，NK=MOD（M，N)10IF（K.GT.0)THENM=NN=KK=MOD（M，N)COTO10ENDIFWRITE

答案解析
阅读下列FORTRAN77程序：DIMENSIONM（3，4)DATAM／4*2，4*1，4*－1／N＝0D010K＝1，410N＝N十M（1，K)WRITE（*，*

答案解析
阅读以下FORTRAN 程序：READ( * *) MIF (M. LT. 100. AND. M

答案解析
阅读以下FORTRAN程序:K1=M(5)K2=M(K1)K3=M(K1)+M(K2)K4=M(K

答案解析
阅读下列FORTRAN 程序： MQIUH=N(5)+N(10) WRITE(* ’(2X 15)

答案解析