【最长上升子序列】吞噬比赛

题目:吞噬比赛 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.

 

转载于:https://www.cnblogs.com/oijzh/archive/2012/08/18/2645829.html