阅读下列FORTRAN程序:DIMENSION M(6)READ(*,*)MDO 10 J=1,6DO 10 K=J,6JF(M(K).LT.M(J))THENN=M(K)M(K)=M(J)M(J)=NEND IF10 CONTINUEWRITE(*,100)(M(I),I=1,6)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

时间:2024-03-05 14:46:34

相似题目