Cod sursa(job #298670)

Utilizator frozen62iceBLue FirE frozen62ice Data 6 aprilie 2009 12:01:13
Problema Subsir crescator maximal Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.55 kb
var f,g:text;
    n,i,j,max,p,mx:longint;
    a,c:array[0..100001] of longint;
begin
assign(f,'scmax.in');reset(f);
assign(g,'scmax.out');rewrite(g);
read(f,n);
for i:=1 to n do read(f,a[i]);
for i:=1 to n-1 do c[i]:=0;
c[n]:=1;
for i:=n-1 downto 1 do begin
 mx:=0;
 for j:=i+1 to n do
  if c[j]>mx then
   if a[i]<=a[j] then mx:=c[j];
 c[i]:=mx+1;
 if max<c[i] then max:=c[i];
end;
writeln(g,max);
p:=-1;
for i:=1 to n do
 if (c[i]=max)and(p<a[i]) then begin
  write(g,a[i],' ');
  p:=a[i];
  dec(max);
 end;
close(f);
close(g);
end.