```cpp
var
a:array[1..10]of longint; //不懂你原来代码意思所以干脆重写一个了；
i,n,z:longint;
Begin
z:=0;
for i:=1 to 10 do
read(a[i]);
read(n);
for i:=1 to 10 do
begin
if (n+30)>=a[i] then z:=z+1 //这里可以直接用陶陶的身高+凳子的高度去比较，建议你不用
else z:=z; 设一个量表示凳子的高度，且比较时是包括等于的；
end;
write(z);
end.
```
by o泡沫半夏o @ 2017-05-10 12:58:54
我补充一下，楼上的if (n+30)>=a[i] then z:=z+1 else z:=z; 这句else z:=z可以去掉
by Kingkong @ 2017-05-20 14:27:00
我把你的代码改一下就对了，首先不能用readln，其次在for的时候应该加begin和and
by xzjds @ 2017-05-22 12:50:37
```cpp
type arr=array[1..10] of longint;
var a:arr;
i,n,z,c:longint;
Begin
z:=0; c:=30;
for i:=1 to 10 do
begin
read(a[i]);
```
end；
```cpp
read(n);
for i:=1 to 10 do
Begin
if n>a[i] then z:=z+1
else if n+30>a[i] then z:=z+1
else z:=z+0;
end;
write(z);
end.
```
by xzjds @ 2017-05-22 12:51:59