求最长不下降序列（逆推）

Description

设有n(n<=1000)个不相同的整数(小于32767)组成的数列，记为：
　　　　a1,a2,...,an,其中任意两个数不相同。
　　例如：3,18,7,14,10,12,23,41,16,24。
　　若有 且有 。则称为长度为e的不下降序列。如上例中，3,18,23,24为一个长度为4的不下降序列，同时也有3,7,10,12,16,24长度为6的不下降序列。程序要求，当原始数列给出后，求出最长的不下降数列的长度。

Input

Output

Sample Input

10
3 18 7 14 10 12 23 41 16 24

Sample Output

6

var
 team:array[1..100]of longint;
 dis:array[1..100]of longint;
 max,i,j,s,t,n:longint;
begin
 readln(n);
 for i:=1 to n do
  read(team[i]);
 dis[n]:=1;
 for i:=n-1 downto 1 do
 begin
  max:=1;
  for j:=i+1 to n do
   if (team[i]<team[j])and(max<dis[j]+1) then max:=dis[j]+1;
  dis[i]:=max;
 end;
 max:=0;
 for i:=1 to n do
  if max<dis[i] then max:=dis[i];
 write(max);
end.