codeves天梯 淘淘摘苹果

陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。
现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。

分析：就是水==

var
a:array[1..10] of integer;
n,i,ans:integer;

begin
for i:=1 to 10 do
read(a[i]);
readln(n);
for i:=1 to 10 do
if n+30>=a[i] then inc(ans);
writeln(ans);
end.