var
a : array[1..11] of integer;
i,t : integer;
begin
assign(input,'apple.in'); reset(input);
assign(output,'apple.out'); rewrite(output);
for i := 1 to 11 do read(a[i]);
t := 0;
for i := 1 to 10 do
if a[i] <= a[11]+30 then inc(t);
writeln(t);
close(input); close(output);
end.
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024