讨论 / pascal题解
雪虎 2017-10-14 10:17:22
点我顶贴 收藏 删除
var

a:array[1..10]of longint;

n,i,s:longint;

begin

for i:=1 to 10 do read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then s:=s+1;

writeln(s);

end.

#1 雪虎@2017-10-14 10:17:55
回复 删除
大家做的好像都大同小异呵——
查看更多回复
提交回复