题目:吞噬比赛 rqnoj156
题目描述
镇里举办贪吃比赛,一共比赛N天,规定:每次吃的必须比上次多,一天只能吃一次(撑死...),吃的天数最多的人将获得胜利,获得10000000000 mod 10 的奖金^_^
现在,Sally要参加比赛,她邀请参加OI的你一起帮忙,胜利后七三分成^_^
输入格式
第一行一个数N,表示吃的天数(N<=10000)
第二行N个数,表示每天能吃的数量(数量最多10000)
输出格式
一个数,表示最多吃的天数
样例输入
6 1 2 3 1 5 6
样例输出
5
很裸的最长上升子序列
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.