学编程时的第一题。
var
a:array[1..10] of longint;
i, h, s:longint;
begin
for i:=1 to 10 do read(a[i]);
read(h);
s:=0;
for i:=1 to 10 do if a[i]<=h+30 then inc(s);
write(s)
end.
感谢！！！

送分题肯定是第一题