var a,o,c,b:array[0..1000]of longint;

n,i,j,max:longint;

begin

readln(n);

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

a[0]:=-maxlongint;

for i:=1 to n do

for j:=0 to i-1 do

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

a[0]:=-maxlongint;

for i:=n downto 1 do

for j:=i-1 downto 0 do

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

for i:=1 to n do b[i]:=o[i]+c[i]-1;

max:=-maxlongint;

for i:=1 to n do

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

writeln(n-max);

end.

回复 楼主q.we@@@ 的帖子

哇！