Cod sursa(job #548255)

Utilizator kayamenKajanto Sandor kayamen Data 7 martie 2011 11:15:29
Problema Subsir 2 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 kb
type vektor1=array[1..5000] of longint;
        vektor2=array[1..5000] of integer;
var v:vektor1; u:vektor2; n,i,j,max:integer;
f,g :text;
begin
assign(f,'subsir2.in');
reset(f);
readln(f,n);
for i:=1 to n do
read(f,v[i]);

for i:=n downto 1 do
begin
 for j:=n downto i-1 do
 begin
   max:=0;
   if v[j]<=v[i]
   then
   begin
     if u[j]>max
     then max:=u[j];
   end;
 end;
 u[i]:=max+1;
end;

max:=0;
for i:=1 to n do
if u[i]>max then  max:=u[j];
close(f);
assign(g,'subsir2.out');
writeln(g,max);
close(g);
end.