比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	AAAAAAAAAA
题目名称	陶陶摘苹果	最终得分	100
用户昵称	苏轼	运行时间	0.008 s
代码语言	Pascal	内存使用	0.15 MiB
提交时间	2014-10-23 18:34:58

显示代码纯文本

var
  i,s,h:longint;
  a:array[1..10]of longint;
begin
  assign(input,'apple.in');
  assign(output,'apple.out');
  reset(input);
  rewrite(output);
  for i:=1 to 10 do
    read(a[i]);
  read(h);
  for i:=1 to 10 do
    if h+30>=a[i] then inc(s);
  writeln(s);
  close(input);
  close(output);
end.