var n,i,j,max,x,y,k:longint;
        lung,a,poz:array[1..100000]of longint;
        f:text;

procedure mac1;
begin
        assign(f,'scmax.in');
        reset(f);
        readln(f,n);
        for i:=1 to n do read(f,a[i]);
        close(f);
        y:=0;
            for i:=1 to n do
            begin
                 max:=0;
                 for j:=1 to i-1 do
                 if(a[i]>a[j])and(max<lung[j])then max:=lung[j];
                 lung[i]:=max+1;
                 if lung[i]>y then y:=lung[i];
            end;
        assign(f,'scmax.out');
        rewrite(f);
        writeln(f,y);

        close(f);

end;

begin
mac1;
end.