编译通过...

├ 测试数据 01：答案正确... 838ms

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 353ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 25ms

├ 测试数据 08：答案正确... 291ms

├ 测试数据 09：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案正确... 588ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：80 有效耗时：2095ms

var n,i,j,max:longint;

f:array[1..10000] of int64;

a:array[1..10000] of longint;

begin

readln(n); max:=-maxlongint;

for i:=1 to n do read(a[i]);

fillchar(f,sizeof(f),0); f[1]:=1;

for i:=1 to n do

for j:=1 to i-1 do

if f[j] mod 2=0 then begin if (a[j]f[i]) then f[i]:=f[j]+1 end

else if (a[j]>a[i]) and (f[j]+1>f[i]) then f[i]:=f[j]+1;

for i:=1 to n do

if f[i]>max then max:=f[i];

writeln(max);

end.