比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	AAAAAAAAAA
题目名称	陶陶摘苹果	最终得分	100
用户昵称	safhsdajkfhsad	运行时间	0.001 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-23 19:11:37

显示代码纯文本

var
  data:array[0..10] of integer;
  i,shengao,vans:longint;

begin
  assign(input,'apple.in');
  reset(input);
  assign(output,'apple.out');
  rewrite(output);
  for i:=1 to 10 do
    read(data[i]);
  readln(shengao);
  shengao:=shengao+30;

  vans:=0;
  for i:=1 to 10 do
    begin
      if (shengao>=data[i]) then
        inc(vans);
    end;

  writeln(vans);
  close(input);
  close(output);
end.