比赛代码 - COGS

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

显示代码纯文本

var h,i,j,k,l:longint;
  a:array[1..11] of longint;

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