题目类型:
单选题
题目内容
阅读下列FORTAN程序:
INTEGERX(7)
DATAX/4,5,7,8,10,12,11/
DO10K=l,7
IF(MOD(X(K),2)N
E.0)THENS=S+X(K)
N=N+1ENDIF10CONTINUET=S/N
WRITE(*,20)S,T20FORMAT(2X,3F6.1)
END
程序运行后的输出结果是:
正确答案
A
题目解析
此题为将读入的奇数相加,并除以奇数的个数。
答案:A