dingyunling0716 2015-07-31 22:31:25
点我顶贴
收藏
删除
var n,s,i:longint;
a:array[1..10] of longint;
begin
s:=0;
for i:=1 to 10 do
read(a[i]);
read(n);
for i:=1 to 10 do
if n+30>=a[i] then inc(s);
write(s);
end.
#2 g++@2016-03-16 05:19:58
33651
回复
删除
var
n,m,i,k,j:longint;
a:array[1..10] of longint;
begin
for i:=1 to 10 do
read(a[i]);readln;
readln(n);
for i:=1 to 10 do
if a[i]<=n+30 then inc(k);
writeln(k);
end.