排队的奶牛

Description

农夫约翰的N只奶牛排成了一条直线，每只奶牛都有一个特定的标识序号，从左到右第i只奶牛的编号是Bi。
约翰认为他的奶牛队列中存在某段连续区间都是相同序号的，那他的队列就非常的美观。为了创造这样的一个连续区间，约翰决定将某个特定的序号的奶牛全部剔除队列。
问题描述：
请帮助约翰计算出通过选择除去某个特定序号的全部奶牛后，所剩下的队列中连续的有相同序号的奶牛的最大区间。

Input

第一行一个正整数N，表示奶牛的数量。
第2行到第N+1行，每行一个非负整数，表示从左到右每只奶牛的序号。

Output

只有一行一个整数，表示连续的有相同序号的奶牛的最大区间中奶牛的数量。

Sample Input

9
2
7
3
7
7
3
7
5
7

Sample Output

4

Hint

数据范围：1<=N<=1000，奶牛序号的范围是0到1000000。
说明：通过除去所有序号为3的奶牛，我们就得到了2777757这样一个序列，那么最长的连续的有相同序号的区间长度就是4。

分析
直接暴力，先枚举删哪个序号，再把删除序号后的序列求出来，再求最长的连续的有相同序号的区间长度。
如果不是数据水，这题也不可能做出来。

程序：

var
i,j,max,tj,n,w,ch:longint;
a,zfc:array[0..2000]of longint;
begin
    assign(input,'cowrow.in');
    reset(input);
    assign(output,'cowrow.out');
    rewrite(output);
    readln(n);
    for i:=1 to n do
    read(a[i]);
    max:=0;
    for i:=1 to n do
    begin
        w:=a[i];
        ch:=0;
        for j:=1 to n do
        if a[j]<>w then
        begin
            inc(ch);
            zfc[ch]:=a[j];
        end;
        tj:=0;
        for j:=1 to ch+1 do
        if zfc[j]=zfc[j-1] then inc(tj)
        else
        begin
            inc(tj);
            if tj>max then max:=tj;
            tj:=0;
        end;
        if tj>max then max:=tj;
        fillchar(zfc,sizeof(zfc),a[n]+1);
    end;
    write(max);
    close(input);
    close(output);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500067.html