[单选题]

阅读下列FORTRAN程序:
DIMENSION M(6)
READ(*,*)M
DO 10 J=1,6
DO 10 K=J,6
JF(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 73 2 1

C.7 9 2 1 3 10

D.3 1 2 9 7 10

参考答案与解析:

相关试题

阅读下列FORTRAN程序:<br />DIMENSION M(6)<br />READ(*,*)M<br />DO 10 J=1,6<br />DO

[单选题]阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J)

  • 查看答案
  • 阅读下列FORTRAN程序:<br />DIMENSION M(6)<br />READ(*,*)M<br />DO 10 J=1,6<br />DO

    [单选题]阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J)

  • 查看答案
  • 阅读下列FORTRAN程序:<br />DIMENSION M(6)<br />READ(*,*)M<br />DO 10 J=1,6<br />DO

    [单选题]阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J)

  • 查看答案
  • 阅读下列FORTRAN程序:<br />DIMENSION M(6)<br />READ(*,*)M<br />DO 10 J=1,6<br />DO

    [单选题]阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J)

  • 查看答案
  • 阅读下列FORTRAN程序:<br />DIMENSIONM(6)<br />READ(*,*)M<br />DO10J=1,6<br />DO10K=

    [单选题]阅读下列FORTRAN程序:DIMENSIONM(6)READ(*,*)MDO10J=1,6DO10K=J,6JF(M(K).LT.M(J))THEN

  • 查看答案
  • 阅读下列FORTRAN程序:<br />DIMENSIONM(6)<br />READ(*,*)M<br />DO10J=1,6<br />DO10K=

    [单选题]阅读下列FORTRAN程序:DIMENSIONM(6)READ(*,*)MDO10J=1,6DO10K=J,6JF(M(K).LT.M(J))THEN

  • 查看答案
  • 阅读以下FORTRAN程序:<br />  READ(*,*)M<br />  IF(M.LT.100.AND.M.GT.999)STOP<br />  K=M/1

    [单选题]阅读以下FORTRAN程序:  READ(*,*)M  IF(M.LT.100.AND.M.GT.999)STOP  K=M/100  L=(M-K*

  • 查看答案
  • 阅读以下FORTRAN程序:<br />  READ(*,*)M<br />  IF(M.LT.100.AND.M.GT.999)STOP<br />  K=M/1

    [单选题]阅读以下FORTRAN程序:  READ(*,*)M  IF(M.LT.100.AND.M.GT.999)STOP  K=M/100  L=(M-K*

  • 查看答案
  • 阅读FORTRAN程序:<br />  READ V(*,*)I,J,K<br />  DO 10 N=1,2<br />  I=I+J+K<br />

    [单选题]阅读FORTRAN程序:  READ V(*,*)I,J,K  DO 10 N=1,2  I=I+J+K  J=l+K+J  K=I+J+K  10 

  • 查看答案
  • 阅读FORTRAN程序:<br />  READ V(*,*)I,J,K<br />  DO 10 N=1,2<br />  I=I+J+K<br />

    [单选题]阅读FORTRAN程序:  READ V(*,*)I,J,K  DO 10 N=1,2  I=I+J+K  J=l+K+J  K=I+J+K  10 

  • 查看答案
  • 阅读下列FORTRAN程序:<br />DIMENSION M(6)<br />READ(*,*)M<br />DO 10 J=1,6<br />DO