2003 2016-08-05 00:19:44
点我顶贴
收藏
删除
var
a:array[1..10] of longint;
x,p,z,i,sum:longint;
begin
sum:=0;
for i:=1 to 10 do
read(a[i]);
readln(x);
for i:=1 to 10 do
if x>=a[i] then sum:=sum+1
else if x+30>=a[i] then sum:=sum+1
else sum:=sum;
if (x>=100) and (x<=120) and (a[i]>=100) and (a[i]<=200) then writeln(sum);
end.