关闭

问题 D: 合唱队形

154人阅读 评论(0) 收藏 举报
分类:

题目描述

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.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16120次
    • 积分:118
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档