[单选题]阅读以下FORTRAN程序： INTEGER X(7) DATA X/10,20,45,70,80,15,14/ M/X(l) DO 10 1=2,7 IF(X(I).GIM)THEN M=X(I) K=1 END IF 10 CONTINUE N=X(K) X(K)=X(I) X(I)=N WRITE( *，100)(X(I)，I=1，7) 100 FORMAT(2X，713) END 程序运行的结果是：
A.10 20 45 70 80 15 14
B.14 20 45 70 80 15 10
C.80 20 45 70 10 15 14
D.20 45 70 80 15 14 10

更多"[单选题]阅读以下FORTR"的相关试题:

[单选题]阅读以下FORTRAN程序 READ(*,*)M,N K=MOD(M,N) 10 IF(K.GT.0)THEN M=N N=K K=MOD(M,N) GOTO 10 END IF WRITE(*,*)N END 若运行以上程序时，由键盘输入25,11，则程序输出为( )。
A.3
B.2
C.1
D.0

查看答案

[单选题]阅读FORTRAN程序： READC*，*)I，J，K DO 10 N=l,2 I=I+J+K J=I+K+J K=I+J+K 10 CONTINUE WRITE(*，20)I，J，K 20 FORMAT(2X，315) END 键盘输入1，0，0则程序运行后的输出结果是：
A.4 7 13
B.2 3 4
C.1 1 2
D.6 9 15

查看答案

[单选题]阅读下列FORTRAN 程序： MQIUH=N(5)+N(10) WRITE(*,’(2X,15)’)MQIUH END FUNCTION N(K) N=0 DO 10 J=1,k N=N+J 10 CONTINUE RETURN END 程序运行后的结果是：
A.65
B.85
C.90
D.70

查看答案

我来回答:

提交