题目内容（请给出正确答案）

[单选题]

阅读下列程序 dimension m(3,3) data m/1,2,3,4,5,6,7,8,9/ write(*,100)(m(3,j),j=1,3) 100 format(1x,3i2) End 程序运行结果是

A.258

B. 369

C. 456

D. 789

提问人：网友yanweiwei55 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

网友答案

查看全部（）

· 有3位网友选择 D，占比33.33%
· 有3位网友选择 C，占比33.33%
· 有2位网友选择 A，占比22.22%
· 有1位网友选择 B，占比11.11%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。

登录/注册

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“阅读下列程序 dimension m（3,3) data m…”相关的问题

第1题

（2008年) 阅读下列FORTRAN程序： DIMENSION M（6) READ （*，*)M DO 10 J=1，6

(2008年) 阅读下列FORTRAN程序： DIMENSION M(6) READ (*，*)M DO 10 J=1，6 D0 10 K=J，6 IF(M(K)．LTM(J)THEN N=M(K) M(K)=M(J) 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

点击查看答案

第2题

（2008年)阅读下列FORTRAN程序： DIMENSION M（4，3) DATE M／-10，12，24，11，20，-15，61，78，9

(2008年)阅读下列FORTRAN程序： DIMENSION M(4，3) DATE M／-10，12，24，11，20，-15，61，78，93，30，44，-45／ N=M(1，1) DO 10 I=1，4 DO 10 J=1，3 IF (M(I，J)．LT．N)THEN N=M(I，J) K1=I K2=J ENFIF 10 CONTINUE WRITE(*，‘(2x，314)’)N，K1，K2 END 程序运行后的输出结果是()。

A．93，3，1

B．-10，1，1

C．-45，4，3

D．78，3，2

点击查看答案

第3题

阅读下列FORTRAN77程序： DIMENSION M(3，4) DATA M/4*2，4*1，4*-1/ N=0 DO 10 K=1，3 10 N=N+M(K，K) WRITE(*，*) N END 运行上述程序后，输出的N值为

A.8

B. 5

C. 4

D. 2

点击查看答案

第4题

阅读下列FORTRAN程序：DIMENSION A（6)READ（*，*)（A（I)，I=1，6)DO 10 K=1，3S=A（K)A（K)=A（7-K)A（7-K)=

阅读下列FORTRAN程序： DIMENSION A(6) READ(*，*)(A(I)，I=1，6) DO 10 K=1，3 S=A(K) A(K)=A(7-K) A(7-K)=S 10 CONTINUE WRITE(*，20)(A(I)，I=1，6) 20 FORMAT(1X，2I) END 上述程序运行时，若由键盘输入1，2，3， 4，5，6，则输出的结果为()。

A．1 2 3 4 5 6

B．1 4 2 5 3 6

C．6 5 4 3 2 1

D．6 3 5 2 4 1

点击查看答案

第5题

阅读下列FORTRAN程序：DIMENSIONA（3，4)DATAA/3*+4.0，3*-3.0，3*-2.0，3*-1.0/S=0.0DO20K=1，3D=A（K，1

阅读下列FORTRAN程序： DIMENSION A(3，4) DATA A/3*+4.0，3*-3.0，3*-2.0，3*-1.0/ S=0.0 DO 20 K=1，3 D=A(K，1) DO 10J=2，4 IF(A(K，J)＜D) D=A(K，J) 10 CONTINUE S=S+D 20 CONTINUE WRITE(*，*) S END

A．-15.0

B．-12.0

C．9.0

D．6.0

点击查看答案

第6题

（2008年) 已知顺序数据文件FILE3．DAT有如下数据： 50，54，64，55 65，70，85，90 46，7

(2008年) 已知顺序数据文件FILE3．DAT有如下数据： 50，54，64，55 65，70，85，90 46，73，60，72 阅读FORTRAN程序： DIMENSION M(12) OPEN(10，FILE=‘FILE3．DAT’) READ(10，*)(M(I)，I=1，12) DO 10 J=1，12 IF(M(J)．GE．60) N=N+1 10 CONTONUE WRITE(*，20)N 20 FORMAT(2X，‘N=’，N) END 程序运行后的输出结果是()。

A．N=7

B．N=8

C．N=4

D．N=9

点击查看答案

第7题

下面程序段的运行结果是（) 。DIMENSION M（3 ， 3)DATA M/1 ， 2 ， 3 ， 4 ， 5 ， 6 ， 7 ， 8 ， 9/DO 1

下面程序段的运行结果是 () 。

DIMENSION M(3 ， 3)

DATA M/1 ， 2 ， 3 ， 4 ， 5 ， 6 ， 7 ， 8 ， 9/

DO 10 i=1 ， 3

WRITR(* ， 100)(M(i ， J) ， J=1 ， i))