求最长不下降序列

求最长不下降序列
Time Limit:1000MS  Memory Limit:65536K
Total Submit:419 Accepted:181
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
 a,f:array[1..1000]of longint;
 i,j,n,big,p:longint;
function max(a,b:longint):longint;
 begin
  if a<b then exit(b);
  exit(a);
 end;
begin
 read(n);
 for i:=1to n do
  read(a[i]);
 f[n]:=1;
 for i:=n-1 downto 1 do
 begin
  p:=1;
  for j:=i+1 to n do
  if (a[i]<a[j])and(f[j]+1>p) then
  p:=f[j]+1;
  f[i]:=p;
 end;
 for i:=1 to n do
  if f[i]>big then big:=f[i];
 write(big);
end.

转移方程:f[i]:=max(1,f[j]+1)(i+1<=j<=n)and(a[i]<a[j])