[DP][NOIP2004] 合唱队形

NOIP2004 合唱队形

时间限制: 1 Sec 内存限制: 128 MB

题目描述

N位同学站成一排，音乐老师要请其中的(N-K)位同学出列，使得剩下的K位同学排成合唱队形。
合唱队形是指这样的一种队形：设K位同学从左到右依次编号为1, 2, …, K，他们的身高分别为T1, T2, …, TK，则他们的身高满足T1 < T2 < … < Ti , Ti > Ti+1 > … > TK (1 <= i <= K)。
你的任务是，已知所有N位同学的身高，计算最少需要几位同学出列，可以使得剩下的同学排成合唱队形。

输入

第一行是一个整数N（2 <= N <= 100），表示同学的总数。第一行有n个整数，用空格分隔，第i个整数Ti（130 <= Ti <= 230）是第i位同学的身高（厘米）。

输出

包括一行，这一行只包含一个整数，就是最少需要几位同学出列。

样例输入

8
186 186 150 200 160 130 197 220

样例输出

4

提示

对于50%的数据，保证有n <= 20；

对于全部的数据，保证有n <= 100。

题解

枚举最高点，对前面的和后面的各做一次最长上升/下降序列

var
 x,dp:array[0..5000]of longint;
 n,i,j,k,ans,t1,t2:longint;
function max(a,b:longint):longint;
begin
 if a>b
 then exit(a)
 else exit(b);
end;

begin
 readln(n);
 for i:=1 to n do
  read(x[i]);
 ans:=-1;
 for i:=1 to n do
  begin
   for j:=1 to i do
    dp[j]:=1;
   for j:=1 to i do
    for k:=j-1 downto 1 do
     if x[j]>x[k]
     then dp[j]:=max(dp[j],dp[k]+1);
   t1:=-1;
   for j:=1 to i do
    t1:=max(t1,dp[j]);
   for j:=i to n do
    dp[j]:=1;
   for j:=i to n do
    for k:=j-1 downto i do
     if x[j]<x[k]
     then dp[j]:=max(dp[j],dp[k]+1);
   t2:=-1;
   for j:=i to n do
    t2:=max(t2,dp[j]);
   ans:=max(ans,t1+t2-1);
  end;
 writeln(n-ans);
end.