Pascal涛涛摘苹果

描述 Description
陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。

现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。

输入格式 Input Format
输入文件apple.in包括两行数据。第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。

输出格式 Output Format
输出文件apple.out包括一行，这一行只包含一个整数，表示陶陶能够摘到的苹果的数目。

我的程序：
program apple;
type
arraytype=array[1..10] of real;
var
b,e:longint;
pp:arraytype;
a:real;
begin
e:=0;
for e:=1 to 10 do read(pp[e]);
readln(a);
b:=0;
for e:=1 to 10 do
if pp[e]<a+30 then b:=b+1;
writeln(b);
end.

帮我看一下，谢谢

if pp[e]<a+30 then b:=b+1;
改成
if pp[e]<=a+30 then b:=b+1;
因为题目说只要碰到就算掉落

5个就对了 刚学完的

5个就对了 刚学完的 再看看别人怎么说的。

苹果高度是整数，不需要real

program apple; var a:array[1..10] of integer; i,h,tot:integer; begin for i:=1 to 10 do read(a[i]); readln(h); tot:=0; for i:=1 to 10 do if (a[i]<=h+30) then inc(tot); writeln(tot); end. 问题和楼上说的一样，原题是说只要碰到就算了的，所以可以取到等号。