奶牛排队 (Standard IO)

最新推荐文章于 2021-09-27 15:25:06 发布

原创最新推荐文章于 2021-09-27 15:25:06 发布 · 123 阅读

CC 4.0 BY-SA版权

本文介绍了一个关于寻找符合条件的最长连续奶牛序列的问题。给定一系列奶牛的身高，需找出一个子序列，该序列中最左侧的奶牛是最矮的，最右侧的是最高的，且中间的奶牛身高既不等于最矮也不等于最高。通过一个简单的暴力算法解决此问题，并给出了具体的实现代码。

题意/Description:

奶牛在熊大妈的带领下排成了一条直队。
　　显然，不同的奶牛身高不一定相同。。。。。
　　现在，奶牛们想知道，如果找出一些连续的奶牛，要求最左边的奶牛A是最矮的，最右边的B是最高的，且B高于A奶牛，中间如果存在奶牛，则身高不能和A,B奶牛相同。问这样的奶牛最多会有多少头？
　　从左到右给出奶牛的身高，请告诉它们符合条件的最多的奶牛数（答案可能是0，2，但不会是1）。

读入/Input：

第一行一个数N(2<=N<=100000)，表示奶牛的头数。
　　接下来N个数，每行一个数，从上到下表示从左边到右奶牛的身高（1<=身高<=maxlongint）。

输出/Output：

第一行，表示最多奶牛数。

题解/solution：

就是一个优美的暴力。

代码/Code：

var
  n,maxx:longint;
  a:array [0..100001] of longint;
procedure init;
var
  i:longint;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  maxx:=0;
end;

function max(o,p:longint):longint;
begin
  if o>p then exit(o);
  exit(p);
end;

procedure main;
var
  i,j,k:longint;
  bo:boolean;
begin
  for i:=n downto 1 do
    begin
      for j:=i-1 downto 1 do
        begin
          if a[i]<=a[j] then break;
	  bo:=true;
          for k:=j+1 to i-1 do
            if (a[k]<=a[j]) or (a[k]>=a[i]) then
              begin
                bo:=false;
		break;
              end;
          if bo then
            begin
              maxx:=max(maxx,i-j+1);
              if maxx=n then
                begin
		  write(n);
		  exit;
                end;
	    end;
	end;
    end;
  write(maxx);
end;

begin
  init;
  main;
end.