【最长上升子序列】吞噬比赛
题目:吞噬比赛 rqnoj156
题目描述
镇里举办贪吃比赛,一共比赛N天,规定:每次吃的必须比上次多,一天只能吃一次(撑死...),吃的天数最多的人将获得胜利,获得10000000000 mod 10 的奖金^_^
现在,Sally要参加比赛,她邀请参加OI的你一起帮忙,胜利后七三分成^_^
输入格式
第一行一个数N,表示吃的天数(N<=10000)
第二行N个数,表示每天能吃的数量(数量最多10000)
输出格式
一个数,表示最多吃的天数
样例输入
样例输出
很裸的最长上升子序列
Pascal Code
program rqnoj156; var n:longint; a,f:array[0..10000+10] of longint; procedure init; begin assign(input,'rqnoj156.in'); assign(output,'rqnoj156.out'); reset(input); rewrite(output); end; procedure outit; begin close(input); close(output); halt; end; procedure readdata; var i:longint; begin read(n); for i:=1 to n do read(a[i]); end; procedure main; var max,i,j:longint; begin max:=1; for i:=1 to n do f[i]:=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 begin f[i]:=f[j]+1; if max<f[i] then max:=f[i]; end; writeln(max); end; begin init; readdata; main; outit; end.
..... 转载请注明出处 ..... http://oijzh.cnblogs.com ..... by jiangzh