P1046 陶陶摘蘋果

題目描述

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

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

輸入輸出格式

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

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

輸入輸出樣例

100 200 150 140 129 134 167 198 200 111110輸出樣例#1：
5
說(shuō)明
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.