02.a,b:array[1..2000] of integer;
03.n,m,i,j,t,tot:Integer;
04.begin
05.readln(n,m);
06.for i:=1 to n do readln(a[i]);
07.for i:=1 to m do readln(b[i]);
08.for i:=1 to n do
09.for j:=i+1 to n do
10.if a[i]<a[j] then
11.begin
12.t:=a[i];a[i]:=a[j];a[j]:=t;
13.end;
14.for i:=1 to m do
15.for j:=i+1 to m do
16.if b[i]<b[j] then
17.begin
18.t:=b[i];b[i]:=b[j];b[j]:=t;
19.end;
20.for i:=1 to n do
21.begin
22.t:=1;
23.while a[i]<b[t] do
24.begin
25.t:=t+1;
26.if t>m then break;
27.end;
28.if t<=m then begin inc(tot);b[t]:=maxint;end
29.else break;
30.end;
31.writeln(m-tot);
32.end.
为什么只能过1个点
01.var
02.a,b:array[1..2000] of integer;
03.n,m,i,j,t,tot:Integer;
04.begin
05.readln(n,m);
06.for i:=1 to n do readln(a[i]);
07.for i:=1 to m do readln(b[i]);
08.for i:=1 to n do
09.for j:=i+1 to n do
10.if a[i]<a[j] then
11.begin
12.t:=a[i];a[i]:=a[j];a[j]:=t;
13.end;
14.for i:=1 to m do
15.for j:=i+1 to m do
16.if b[i]<b[j] then
17.begin
18.t:=b[i];b[i]:=b[j];b[j]:=t;
19.end;
20.for i:=1 to n do
21.begin
22.t:=1;
23.while a[i]<b[t] do
24.begin
25.t:=t+1;
26.if t>m then break;
27.end;
28.if t<=m then begin inc(tot);b[t]:=maxint;end
29.else break;
30.end;
31.writeln(m-tot);
32.end.
var
a,b:array[1..2000] of integer;
n,m,i,j,t,tot: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 n do
for j:=i+1 to n do
if a[i]<a[j] then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
end;
for i:=1 to m do
for j:=i+1 to m do
if b[i]<b[j] then
begin
t:=b[i];b[i]:=b[j];b[j]:=t;
end;
for i:=1 to n do
begin
t:=1;
while a[i]<b[t] do
begin
t:=t+1;
if t>m then break;
end;
if t<=m then begin inc(tot);b[t]:=maxint;end
else break;
end;
writeln(m-tot);
end.
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶
顶