讨论 / pascal AC题解
图灵 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.

查看更多回复
提交回复