贪心算法练习（一）

program p1424;
var
k,i,n,p,j:longint;
a,l:array[1..1000]of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
k:=1; l[1]:=a[1];
for i:=2 to n do
begin
p:=0;
for j:=1 to k do
if (l[j]>=a[i])and((p=0)or(l[j]<l[p])) then p:=j;
if p=0 then begin inc(k); l[k]:=a[i]; end
else l[p]:=a[i];
end;
writeln(k);
end.