小学的程序都能AC

练习线段树动态开点

DPDPDPDP！！！！

百题....加油

求以i的结束的最长上升子序列fs[i]与以 i 为开始的最长下降子序列fj[i]（均不包括 i ），答案是n-max（fs[i]+fj[i]+1）

pascal横行啊

\(^o^)/~

占楼

求问错误原因，只对了三个点..求神牛牪犇解答
var
a,b,c,d,e,f,g,h:longint;
x,y,z:array[1..30000]of longint;
begin
assign(input,'chorus.in');reset(input);
assign(output,'chorus.out');rewrite(output);
read(a);
for b:=1 to a do
read(x[b]);
for c:=1 to a do
begin
for d:=1 to c-1 do
if (x[d]<x[c]) then
if y[d]>h then h:=y[d];
y[c]:=h+1; h:=0;
end;
for c:=a downto 1 do begin
for d:=c+1 to a do
if x[d]<x[c] then
if z[d]>g then g:=z[d];
z[c]:=g+1; g:=0; end;
for e:=1 to a do
if y[e]+z[e]-1>f then f:=y[e]+z[e]-1;
write(a-f);
end.

应该是“最长上升子序列”和“最长下降子序列”，如果反着存一遍的话“最长上升”两次就行了

不上升、不下降。

用的和一般的思路不一样的思路，好慢，总0.011秒
——我是把130-230（身高）作为下标，其中存长度作为状态写的动规……