program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var   f:text;
      i,j,n,max:integer;
      m,d:array[1..1000] of integer;
begin
   Assign(f,'input.txt');
   Reset(f);
   Readln(f,n);
   For i:=1 to n do
      Read(f,m[i]);

   d[1]:=1;
   For i:=2 to n do
   Begin
    max:=0;
    For j:=i-1 downto 1 do
      If (m[i]>m[j])and(max<d[j]) then  max:=d[j];
    d[i]:=max+1;
   End;

   write(d[n]);
   close(f);
end.