记录编号	1785	评测结果	AAAAAAAAAA
题目名称	渡轮问题	最终得分	100
用户昵称	王瑞祥K	是否通过	通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-09-08 19:40:12	内存使用	0.00 MiB

program maxxl(input,output);
var
 a:array[1..10000,1..3]of integer;
 i,s,n:integer;
procedure clean;
var i:integer;
begin
 for i:=1 to n do
 begin
  a[i,1]:=0;
  a[i,2]:=1;
  a[i,3]:=0;
 end;
end;
procedure pailie;
var i,j,max,x,weizhi:integer;
begin
 max:=0;
 for i:=n-1 downto 1 do
 begin
  x:=0;
  weizhi:=0;
  for j:=i+1 to n do
  begin
   if (a[j,1]>=a[i,1])and(a[j,2]>x) then begin x:=a[j,2];weizhi:=j;end;
  end;
  a[i,2]:=1+x;
  a[i,3]:=weizhi;
  if a[i,2]>=max then begin s:=i; max:=a[i,2];end;
 end;
end;
begin
 assign(input,'maxxl.in');
 assign(output,'maxxl.out');
 reset(input);rewrite(output);
 readln(input,n);
 clean;
 for i:=1 to n do
  readln(input,a[i,1]);
 pailie;
 writeln(output,a[s,2]);
 i:=s;
 repeat
 write(output,a[i,1],' ');
  i:=a[i,3];
 until i=0;
 close(input);close(output);
end.