求最长不下降序列

最新推荐文章于 2022-11-08 21:29:19 发布

SSL_Yyx

最新推荐文章于 2022-11-08 21:29:19 发布

阅读量402

点赞数 3

分类专栏：动态规划

本文链接：https://blog.csdn.net/SSL_Yyx/article/details/57075418

版权

动态规划专栏收录该内容

52 篇文章 0 订阅

订阅专栏

题目描述
设有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的不下降序列。程序要求，当原始数列给出后，求出最长的不下降数列的长度。

输入输出样例
输入样例
10
3 18 7 14 10 12 23 41 16 24

输出样例
6

说明
数组a用于记输入的数，数组f用于记录长度。（我用的是逆推）

var
  i,j,n,max,maxn:longint;
  a:array[0..1000]of longint;
  f:array[0..1000]of longint;
begin
  readln(n);
  for i:=1 to n do
  begin
    read(a[i]);
    f[i]:=1;
  end;
  for i:=n downto 1 do
  begin
    max:=0; maxn:=0;
    for j:=i to n do
      if (f[j]>max)and(a[i]<a[j]) then begin max:=f[j]; maxn:=j; end;
    f[i]:=f[i]+f[maxn];
  end;
  max:=0;
  for i:=1 to n do
    if max<f[i] then max:=f[i];
  writeln(max);
end.