图灵 2016-11-14 21:40:09
点我顶贴
收藏
删除
var
n,m,i,j,q,d:integer;
a,b:array[1..2000] of integer;
begin
readln(n,m);
for i:=1 to n do readln(a[i]);
for i:=1 to m do readln(b[i]);
for i:=1 to m-1 do
for j:=1 to m-i do
if b[j]>b[j+1] then begin
d:=b[j];
b[j]:=b[j+1];
b[j+1]:=d;
end;
i:=0; q:=0;
repeat
inc(i);
for j:=m downto 1 do
if (a[i]>b[j])and(b[j]<>-1)and(b[j]<>0) then
begin
inc(q);
b[j]:=-1;
break;
end;
until i=n;
q:=m-q;
writeln(q);
end.