问题 C: 求最长上升序列

题目描述

      设有由n个不相同的整数组成的数列，记为:b(1)、b(2)、……、b(n)且b(i)<>b(j)  (i<>j)，若存在i1<i2<i3< … < ie 且有b(i1)<b(i2)< … <b(ie)则称为长度为e的不下降序列。程序要求，当原数列出之后，求出最长的不下降序列。
       例如13，7，9，16，38，24，37，18，44，19，21，22，63，15。例中13，16，18，19，21，22，63就是一个长度为7的不下降序列，同时也有7 ，9，16，18，19，21，22，63长度为8的不下降序列。

输入

只有一行，为若干正整数（最多1000个数）

输出

为两行，第一行为最上升序列的长度。

第二行为该序列

样例输入

13 7 9 16 38 24 37 18 44 19 21 22 63 15

样例输出

max=8 7 9 16 18 19 21 22 63

var i,m,j,sum,x:longint;b,f,t,a:array[1..10000]of longint;

    h:array[1..2]of integer;

begin

//assign(input,'input.txt');

//assign(output,'output.txt');

//reset(input);

//rewrite(output);

m:=0;

while not eof do

begin

 m:=m+1;

 read(b[m]);

 f[m]:=1;

end;

  {for i:=1 to m do

    begin f[i]:=1; t[i]:=1; end;}

  for i:=m-1 downto 1 do

   for j:=i+1 to m do

    if (b[i]<b[j]) and (f[i]<f[j]+1) then

    begin

    f[i]:=f[j]+1;

    a[i]:=j;

    end;

    h[1]:=0;

   for i:=1 to m do

    if f[i]>h[1] then

     begin

      h[1]:=f[i];

      h[2]:=i;

     end;

  {for i:=m-1 downto 1 do

   begin

        sum:=0;

        for j:=i+1 to m do

           if (b[i]<=b[j]) and (f[i]=f[j]+1) then sum:=sum+t[j];

        if sum>t[i] then t[i]:=sum;

   end;

  ans:=0; sum:=0;

  for i:=1 to m do

    if f[i]>ans then ans:=f[i];

  for i:=1 to m do

    if f[i]=ans then sum:=sum+t[i]; }

  writeln('max=',h[1]);x:=b[h[2]];

  for i:=1 to h[1] do

   begin

    write(x,' ');

    x:=b[a[h[2]]];

    h[2]:=a[h[2]];

    end;

  //close(input);

  //close(output);

end.