比赛代码 - COGS

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

显示代码纯文本

var
a:array[0..100]of longint;
i,j,t,s:longint;

begin
assign(input,'apple.in');
reset(input);
assign(output,'apple.out');
rewrite(output);

for i:=1 to 10 do
read(a[i]);
readln;
read(j);
t:=j+30;
for i:=1 to 10 do
if a[i]<=t then inc(s);

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