比赛代码 - COGS

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

显示代码纯文本

program cogs972;
var
 tall,i,j,total:longint;
begin
   assign(input,'apple.in'); reset(input);
   assign(output,'apple.out'); rewrite(output);
    for i:=1 to 10 do read(j);
    readln;
    readln(tall);
    reset(input);
    total:=0;
    for i:=1 to 10 do
     begin
       read(j);
       if j<=tall+30 then inc(total);
     end;
    writeln(total);
   close(input); close(output);
end.