[单选题]

阅读下列FORTRAN程序
  INT EGER X(3,3),A
  DATA X /1,2,3,4,5,6,7,8,9/
  D0 10 1=3
  D0 10 J=1+3
  A=X(1,J)
  X(1,J)=X(J,I)
  X(J,I)=A
  10 CONTINUE
  WRITE(*,20)((X(1,J),J=1,3)I=1,3)
  20 PORMAT(IX,312)
  END
  运行上述程序后,其输出是(  )。

A.

B.

C.

D.

参考答案与解析:

相关试题

阅读下列FORTRAN程序<br />  INT EGER X(3,3),A<br />  DATA X /1,2,3,4,5,6,7,8,9/<br />  D0

[单选题]阅读下列FORTRAN程序  INT EGER X(3,3),A  DATA X /1,2,3,4,5,6,7,8,9/  D0 10 1=3  D0

  • 查看答案
  • 阅读下列FORTRAN程序<br />  INT EGER X(3,3),A<br />  DATA X /1,2,3,4,5,6,7,8,9/<br />  D0

    [单选题]阅读下列FORTRAN程序  INT EGER X(3,3),A  DATA X /1,2,3,4,5,6,7,8,9/  D0 10 1=3  D0

  • 查看答案
  • 阅读下列FORTRAN程序<br />  INT EGER X(3,3),A<br />  DATA X /1,2,3,4,5,6,7,8,9/<br />  D0

    [单选题]阅读下列FORTRAN程序  INT EGER X(3,3),A  DATA X /1,2,3,4,5,6,7,8,9/  D0 10 1=3  D0

  • 查看答案
  • 阅读下列FORTRAN程序<br />  INT EGER X(3,3),A<br />  DATA X /1,2,3,4,5,6,7,8,9/<br />  D0

    [单选题]阅读下列FORTRAN程序  INT EGER X(3,3),A  DATA X /1,2,3,4,5,6,7,8,9/  D0 10 1=3  D0

  • 查看答案
  • 阅读下列FORTRAN程序<br />  INTEGERX(3,3),A<br />  DATAX/1,2,3,4,5,6,7,8,9/<br />  D010 1

    [单选题]阅读下列FORTRAN程序  INTEGERX(3,3),A  DATAX/1,2,3,4,5,6,7,8,9/  D010 1=3  D010 J=

  • 查看答案
  • 阅读下列FORTRAN程序<br />  INTEGERX(3,3),A<br />  DATAX/1,2,3,4,5,6,7,8,9/<br />  D010 1

    [单选题]阅读下列FORTRAN程序  INTEGERX(3,3),A  DATAX/1,2,3,4,5,6,7,8,9/  D010 1=3  D010 J=

  • 查看答案
  • 阅读下列FORTRAN程序:<br />INTEGER X(7)<br />DATA X/4,5,7,8,10,12,11/<br />D0 10 K=1,7<

    [单选题]阅读下列FORTRAN程序:INTEGER X(7)DATA X/4,5,7,8,10,12,11/D0 10 K=1,7IF(MOD(X(K),2)

  • 查看答案
  • 阅读下列FORTRAN程序:<br />INTEGER X(7)<br />DATA X/4,5,7,8,10,12,11/<br />D0 10 K=1,7<

    [单选题]阅读下列FORTRAN程序:INTEGER X(7)DATA X/4,5,7,8,10,12,11/D0 10 K=1,7IF(MOD(X(K),2)

  • 查看答案
  • 阅读下列FORTRAN程序:<br />INTEGER X(7)<br />DATA X/4,5,7,8,10,12,11/<br />D0 10 K=1,7<

    [单选题]阅读下列FORTRAN程序:INTEGER X(7)DATA X/4,5,7,8,10,12,11/D0 10 K=1,7IF(MOD(X(K),2)

  • 查看答案
  • 阅读下列FORTRAN程序:<br />INTEGER X(7)<br />DATA X/4,5,7,8,10,12,11/<br />D0 10 K=1,7<

    [单选题]阅读下列FORTRAN程序:INTEGER X(7)DATA X/4,5,7,8,10,12,11/D0 10 K=1,7IF(MOD(X(K),2)

  • 查看答案
  • 阅读下列FORTRAN程序<br />  INT EGER X(3,3),A<br />  DATA X /1,2,3,4,5,6,7,8,9/<br />  D0