讨论 - pascal题解

讨论 / pascal题解

雪虎 2017-10-13 19:17:22

点我顶贴收藏删除

var

a:array[1..10]of longint;

n,i,s:longint;

begin

for i:=1 to 10 do read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then s:=s+1;

writeln(s);

end.

#1 雪虎@2017-10-13 19:17:55

回复删除

大家做的好像都大同小异呵——

查看更多回复

拥有 RQNOJ 账号，您可以：

提交回复

  快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号

    Processed in 0.0030	Second(s)
    Copyright (C) RQNOJ 2007-2019. All Rights Reserved.