浪费内存，直接用10个存的数组就行了
```cpp
const n=10;
var
a:array[1..n] of longint;
max,i,s:longint;
begin
for i:=1 to n do begin
read(a[i]);
end;
readln(max);
for i:=1 to n do begin
if a[i]<=(max+30) then s:=s+1;
end;
writeln(s);
end.
```
by Pascal周逸非 @ 2017-05-24 20:18:22
```cpp
const n=10;
var
a:array[1..n] of longint;
max,i,s:longint;
begin
for i:=1 to n do begin
read(a[i]);
end;
readln(max);
for i:=1 to n do begin
if a[i]<=(max+30) then s:=s+1;
end;
writeln(s);
end.
```
by 20041018xx @ 2017-06-02 21:52:31
@[kkksc03](/space/show?uid=1)
有人发答案！！！
by 飞天者 @ 2017-06-03 20:24:00