zh_tym 2013-07-03 23:19:00
点我顶贴
收藏
删除
var
n,i,j,max:longint;
a,f1,f2:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
f1[i]:=1;
f2[i]:=1;
end;
for i:=n downto 1 do
for j:=i+1 to n do
begin
if (a[i]>a[j]) and (f1[j]+1>f1[i]) then
f1[i]:=f1[j]+1;
if (a[i]<a[j]) and (f2[j]+1>f2[i]) then
f2[i]:=f2[j]+1;
end;
max:=0;
for i:=1 to n do
if f1[i]>max then max:=f1[i];
write(max,' ');
max:=0;
for i:=1 to n do
if f2[i]>max then max:=f2[i];
writeln(max);
end.