问题 D: 合唱队形

题目描述

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

输入

输入文件chorus.in的第一行是一个整数N（2 ≤ N ≤ 100），表示同学的总数。第二行有n个整数，用空格分隔，第i个整数Ti（130 ≤ Ti ≤ 230）是第i位同学的身高（厘米）。

对于50%的数据，保证有n ≤ 20；对于全部的数据，保证有n≤100。

输出

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

样例输入

8 186 186 150 200 160 130 197 220

样例输出

4

program Chorus; const maxn=200;

type data=array[1..maxn] of longint;

var a,b,c:data;

    i,j,n,m:longint;

procedure up(x:longint);

var i,max:longint;

begin

  max:=0;

  for i:=x-1 downto 1 do

    if a[i]<a[x] then

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

  b[x]:=max+1;

end;

procedure down(x:longint);

var i,max:longint;

begin   

  max:=0;

  for i:=x+1 to n do

    if a[i]<a[x] then

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

  c[x]:=max+1;

end;

begin

  readln(n);

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

  for i:=1 to n do up(i);

  for i:=n downto 1 do down(i);

  m:=0;

  for i:=1 to n do begin

    b[i]:=b[i]+c[i];

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

  end;

  writeln(n-m+1);

end.