P1046 陶陶摘蘋果

題目描述

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

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

輸入輸出格式

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

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

輸入輸出樣例

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.