讨论 - acac

讨论 / acac

404510 2011-12-14 18:34:00

点我顶贴收藏删除

var

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

i,n,s,b:integer;

begin

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

readln(n);

s:=n+30;

for i:=1 to 10 do

if a[i]<=s then inc(b);

writeln(b);

end.

查看更多回复

拥有 RQNOJ 账号，您可以：

提交回复

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

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