输入包括两行数据.第一行包含10个100到200之间(包括100和200)的整数(以厘米为单位)分别表示10个苹果到地面的高度,两个相邻的整数之间用一个空格隔开.第二行只包括一个100到120之间(包含100和120)的整数(以厘米为单位),表示陶陶把手伸直的时候能够达到的最大高度.
【输出】
输入包括两行数据.第一行包含10个100到200之间(包括100和200)的整数(以厘米为单位)分别表示10个苹果到地面的高度,两个相邻的整数之间用一个空格隔开.第二行只包括一个100到120之间(包含100和120)的整数(以厘米为单位),表示陶陶把手伸直的时候能够达到的最大高度.
【样例输入】
100 200 150 140 129 134 167 198 200 111
110
【样例输出】
5
参考程序】
var reads,for1,Hecan:integer;
apple:array[1..10] of integer;
begin
for for1:=1 to 10 do read(apple[for1]);
readln(reads);
readln;
for for1:=1 to 10 do if reads+30>=apple[for1] then inc(Hecan);
writeln(Hecan);
readln;
end.