记录编号	1380	评测结果	AAAAAAAAAA
题目名称	渡轮问题	最终得分	100
用户昵称	bing	是否通过	通过
代码语言	Pascal	运行时间	0.862 s
提交时间	2008-09-01 21:56:27	内存使用	0.17 MiB

program bing;
var
 f1,f2:text;
 a:array[1..10000,1..3] of integer;
 n,m:integer;
procedure init;
var
 i:integer;
begin
 assign(f1,'maxxl.in');reset(f1);
 assign(f2,'maxxl.out');rewrite(f2);
 readln(f1,n);
 for i:=1 to n do
 begin
  readln(f1,a[i,1]);
  a[i,2]:=1;
  a[i,3]:=0;
 end;
end;
procedure go;
var
 i,j:integer;
 k,l:integer;
begin
 m:=n;
 for i:=n-1 downto 1 do
 begin
  k:=0;l:=0;
  for j:=i+1 to n do
  begin
   if (a[j,1]>=a[i,1])and(a[j,2]>l) then
   begin
    k:=j;
    l:=a[j,2];
   a[i,2]:=l+1;
   a[i,3]:=k;
  end;
  if a[i,2]>=a[m,2] then m:=i;
 end;end;
end;
procedure put;
begin
 writeln(f2,a[m,2]);
 repeat
 write(f2,a[m,1],' ');
 m:=a[m,3];
 until m=0;
 close(f1);close(f2);
end;
begin
 init;
 go;
 put;
end.