50分 为什么？？

var f:array[0..10000,1..2] of longint;

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

i,j,max,n:longint;

begin

readln(n);

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

f[0,1]:=0;f[0,2]:=0;

for i:=1 to n do

begin

max:=0;

for j:=1 to i-1 do

if (f[j,2]>max) and (a[j]max) and (a[j]>a[i]) then

max:=f[j,1];

f:=max+1;

end;

if f[n,1]>f[n,2] then writeln(f[n,1]) else writeln(f[n,2]);

end.