阅读下列FORTRAN程序:INTEGER X(7)DATA X/4 5 7 8 10 12 11

阅读下列FORTRAN程序:

INTEGER X(7)

DATA X/4，5，7，8，10，12，11/

DO 10 K=1，7

IF(MOD(X(K),2).NE.0)THEN

S=A+X(K)

N=N+1

END IF

10 CONTINUE

T=S/N

WRITE(*,20)S,T

20 FORMAT(2X,3F6，1)

END

程序运行后的输出结果是：

（A）12.0 7.7(B)47.0 6.7(C)34.0 8.5(D)57.0 11.4

参考答案

您可能感兴趣的试题

阅读下列FORTRAN77程序： READ（* , *)X IF（X.LE.0) THEN Y=0.0 ELSE IF （（X.LT.5.0).AND.（X.N

答案解析
阅读下面程序： INTEGER Q（3，4) DATA Q／4* －1，4* －2，4* －3／S=0DO 10 K=1，310 S=S＋Q（K，K＋1)DO 20 K

答案解析
阅读下列FORTRAN程序 INTEGER X（3,3),ADATA X／1,2,3,4,5,6,7,8,9／ DO 10 I=1,3DO 10 J=I＋1,3A=X（

答案解析
阅读下列FORTRAN程序INTEGERX（3，3)，ADATA X／1，2，3，4，5，6，7，8，9／DO 10 I=1，3DO 10 J=I＋1，3A=X（I，J

答案解析
阅读下列FORTRAN77程序段：S＝0.0DO10J＝0，NS＝S＋XX＝X＋0.510CONTINUE下面程序段中与上述程序段等价的

答案解析
阅读下列FORTRAN77程序：EXTERNALPPINTEGER P，PP，Q（4，4)DATAQ／1，2，3，4，5，6，7，8，9，10，11，12，13，14，

答案解析