讨论 - 谁有我的短

863671241 2010-09-28 01:07:00

点我顶贴收藏删除

var

n,i,j,x:longint;

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

begin

readln(n);

for i:=1 to n do begin

read(a[i]);b[i]:=1;

for j:=1 to i-1 do

if a[i]>a[j] then if b[j]+1>b[i] then b[i]:=b[j]+1;

if b[i]>x then x:=b[i];

end;

write(x);

end.

#1 我不是白痴@2010-09-22 22:01:00

回复删除

貌似是“最长不降子序列”？

#2 yang_7_46@2010-09-23 04:43:00

回复删除

那还用问啊？

#3 永夜@2010-09-23 05:18:00

回复删除

n2的朴素算法也出来秀……

#4 我是白痴@2010-09-28 01:07:00

回复删除

回复地毯“永夜”

可有什么强化版的？