当前位置:首页 → 建筑工程 → 注册环保工程师 → 注册环保工程师公共基础->阅读下列FORTAN程序:INTEGERX(7)DATAX/
阅读下列FORTAN程序:
INTEGERX(7)
DATAX/4,5,7,8,10,12,11/
DO10K=l,7
IF(MOD(X(K),2)NE.0)THENS=S+X(K)
N=N+1ENDIF10CONTINUET=S/N
WRITE(*,20)S,T20FORMAT(2X,3F6.1)
END
程序运行后的输出结果是:
此题为将读入的奇数相加,并除以奇数的个数。
答案:A









