| 比赛 | 十一中校庆欢乐赛 | 评测结果 | 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.