记录编号	188367	评测结果	AAAAAAAAAA
题目名称	最长上升子序列	最终得分	100
用户昵称	转瞬の电流	是否通过	通过
代码语言	Pascal	运行时间	0.012 s
提交时间	2015-09-22 21:26:21	内存使用	0.17 MiB

program t1480;
var
{b:array[0..1000]of integer;}
i,j,k,n,l,m:longint;
b:array[0..1000,1..3]of integer;
begin
assign(input,'lis1.in');
assign(output,'lis1.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
b[i,2]:=1;
b[i,3]:=0;
read(b[i,1]);
end;
readln;
for i:=n-1 downto 1 do
 begin
 l:=0;
 k:=0;
 for j:=i+1 to n do
 if (b[j,1]>b[i,1])and(b[j,2]>l) then
  begin
  k:=j;
  l:=b[j,2];
  end;
 if l>0 then
  begin
  b[i,2]:=l+1;
  b[i,3]:=k;
  end;
 end;
 m:=0;
for i:=1 to n do
 if b[i,2]>m then
 begin
 m:=b[i,2];
 k:=i;
 end;
writeln(m);
{while k<>0 do
 begin
 write(b[k,1],' ');
 k:=b[k,3];
 end;}
close(input);
close(output);
end.