当前位置:首页 → 建筑工程 → 注册环保工程师 → 注册环保工程师公共基础->已知顺序数据文件FILE3.DAT有如下数据:50,54,6
已知顺序数据文件FILE3. DAT有如下数据:
50,54,64,65
65,70,85,90 46,73,60,72 阅读FORTRAN程序 DIMENSION M(12)
OPENdO,FILE=:FILE3. DAT,)
READC10,*)(M(I),I=1,12)
D0 10J=1,12 IF (M(J).GE. 60)N=N+1 10 CONTINUE WRITE(*,20)N 20 FORMAT(2X,‘N=,,12)
END
程序输出后的结果是:
数组元素赋值分别为:M(1) =50,M(2)=54,M(3)=64,M(4)=55,M(5)=65,M(6)=70,M(7)=85,M(8)=90,M(9)=46,M(10)=73,M(11)=60,M(12)=72,
循环判断数组元素的值大于等于60的数,而后记录它们的个数,总共有8个。
答案:B









