P1046 陶陶摘蘋果

題目描述

陶陶家的院子里有一棵蘋果樹，每到秋天樹上就會結出10個蘋果。蘋果成熟的時候，陶陶就會跑去摘蘋果。陶陶有個30厘米高的板凳，當她不能直接用手摘到蘋果的時候，就會踩到板凳上再試試。

現在已知10個蘋果到地面的高度，以及陶陶把手伸直的時候能夠達到的最大高度，請幫陶陶算一下她能夠摘到的蘋果的數目。假設她碰到蘋果，蘋果就會掉下來。

輸入輸出格式

輸入文件apple.in包括兩行數據。第一行包含10個100到200之間（包括100和200）的整數（以厘米為單位）分別表示10個蘋果到地面的高度，兩個相鄰的整數之間用一個空格隔開。第二行只包括一個100到120之間（包含100和120）的整數（以厘米為單位），表示陶陶把手伸直的時候能夠達到的最大高度。

輸出文件apple.out包括一行，這一行只包含一個整數，表示陶陶能夠摘到的蘋果的數目。

輸入輸出樣例

100 200 150 140 129 134 167 198 200 111110輸出樣例#1：
5
說明
NOip2005普及組第一題
var
a:array[1..10]of longint;
i,j,t,ans:longint;
begin
for i:=1 to 10doread(a[i]);
readln(t);
t:=t+30;//總高度為陶陶的身高＋板凳的高度
for i:=1 to 10doif a[i]<=t theninc(ans);//尋找夠得到的蘋果并摘下
writeln(ans);
end.