863671241 2010-07-17 08:03:00
点我顶贴
收藏
删除
var
n,i,j,x:longint;
a,b:array[1..10000]of longint;
begin
readln(n);
for i:=1 to n do begin
read(a[i]);b[i]:=1;
for j:=1 to i-1 do
if a[i]>a[j] then if b[j]+1>b[i] then b[i]:=b[j]+1;
if b[i]>x then x:=b[i];
end;
write(x);
end.