tyvj P1049:最长不下降子序列

最新推荐文章于 2018-06-29 15:56:19 发布

原创最新推荐文章于 2018-06-29 15:56:19 发布 · 532 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#output #input #each #测试

收录于

OI解题报告专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一种使用动态规划解决最长不下降子序列问题的方法。输入为一系列整数，目标是找出该序列中最长的不下降子序列的长度。

描述 Description
	求最长不下降子序列的长度


	输入格式 Input Format
		第一行为n，表示n个数第二行n个数


	输出格式 Output Format
		最长不下降子序列的长度


	样例输入 Sample Input
		3 1 2 3


	样例输出 Sample Output
		3


	时间限制 Time Limitation
		各个测试点1s


	注释 Hint
		N小于5000 for each num <=maxint

经典DP，让我想到了合唱队形。

f[i]表示第i个人向左能得到的最大值，

枚举j from 1 to i-1

在a[i]>=a[j] 的条件下f[i]:=max[f[j]+1];

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