夏琦 2012-07-18 06:16:00
点我顶贴
收藏
删除
var
a,b:array[1..2000] of integer;
s,i,j,t,n,m:integer;
begin
read(n,m);
readln;
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to m do
begin
readln(b[i]);
end;
for i:=1 to m-1 do
begin
for j:=i+1 to m do
begin
if b[i]>b[j] then
begin
t:=b[i];b[i]:=b[j];b[j]:=t;
end;
end;
end;
for i:=1 to m do
begin
if b[i]=0 then b[i]:=2000;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i]<=b[i] then
begin
s:=s+1;
a[i]:=5000;
end;
end;
end;
write(s);
end.