比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	RRRRRRRRRR
题目名称	陶陶摘苹果	最终得分	0
用户昵称	稠翼	运行时间	0.002 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-23 17:57:19

显示代码纯文本

var
   a:array[1..10]of integer;
   i,x,ans:longint;
procedure init;
begin
     assign(input,'apple.in');reset(input);
     assign(output,'apple.out');rewrite(output);
end;
procedure main;
begin
     for i:=1 to 10 do read(a[i]);
     readln(x);
     inc(x,30);
     for i:=1 to 10 do if a[i]<=x then inc(ans);
     writeln(ans);
end;
begin
     main;
end.//complete by chouyi 20141023