有0高度的淘淘，大家写的时候注意一下。

帮我看看为啥不过，谢了。
program pingguo;
var
a,b:array[0..2001] of integer;
i,j,m,n,k,ans:integer;
begin
assign(input,'applea.in');
assign(output,'applea.out');
reset(input);
rewrite(output);
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
begin
k:=0;
for j:=1 to m do
if (a[i]>b[j])and ( b[j]<>0) then
if b[k]<b[j] then
k:=j;
if K<>0 then
b[k]:=0;
end;
ans:=0;
for i:=1 to m do
if b[i]<>0 then
inc(ans);
writeln(ans);
close(input);
close(output);
end.

想不到我练习treap、SBT失败！

m和n读反了所以跪了几次……
另外，既然”陶陶摘苹果“叫apple，这道题就应该叫taotao

当然了，摘取的顺序按照输入的“苹果够到的最大高度”的顺序来摘。