比赛代码 - COGS

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

显示代码纯文本

program cojs972;
var
  a:array[1..10]of longint;
  i,n,ans:longint;

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

  for i:=1 to 10 do
    read(a[i]);
  readln(n);
  inc(n,30);
  for i:=1 to 10 do
    if a[i]<=n then inc(ans);
  writeln(ans);

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