阅读下列FORTAN程序: INTEGERX(7) DATAX/4,5,7,8,10,12,11/ DO10K=1.7 IF(MOD(X(K),2)NE.O)THEN S=S+X(K) N=N+1 ENDIF 10CONTINUE T=S/N WRITE(

admin2009-03-07  41

问题 阅读下列FORTAN程序:
INTEGERX(7)
DATAX/4,5,7,8,10,12,11/
DO10K=1.7
IF(MOD(X(K),2)NE.O)THEN
S=S+X(K)
N=N+1
ENDIF
10CONTINUE
T=S/N
WRITE(*,20)S,T
20FORMAT(2X,3F6.1)
END
程序运行后的输出结果是:

选项 A、23.07.7
B、47.06.7
C、34.08.5
D、57.011.4

答案A

解析 此题为将读入的奇数相加,并除以奇数的个数。
转载请注明原文地址:https://jikaoti.com/ti/SWPhFFFM
0

最新回复(0)