记录编号	45529	评测结果	AWWTTTTTTT
题目名称	[NOIP 2010冲刺十二]奶牛排队	最终得分	10
用户昵称	舍得	是否通过	未通过
代码语言	Pascal	运行时间	7.253 s
提交时间	2012-10-24 12:43:12	内存使用	0.93 MiB

program  tahort;
const
    maxn=100000;
var
    opt,a:array[0..maxn] of longint;
    n,ans:longint;

procedure init;
var
    i:longint;
begin
    assign(input,'tahort.in');
    reset(input);
    assign(output,'tahort.out');
    rewrite(output);
    readln(n);
    for i:=1 to n do
        read(a[i]);
end;

procedure main;
var
    i,j:longint;
begin
    a[0]:=-maxlongint;
    for i:=1 to n do
        for j:=i-1 downto 0 do
            if (a[j]<a[i]) and (opt[j]+1>opt[i]) then
                opt[i]:=opt[j]+1;
    a[n+1]:=-maxlongint;
    ans:=0;
    for i:=1 to n do
        if opt[i]>ans then
            ans:=opt[i];
end;

procedure print;
begin
    writeln(ans);
    close(input);
    close(output);

end;

begin
    init;
    main;
    print;
end.