排队的奶牛(Cows in a Row)

题目：

农夫约翰的N只奶牛排成了一条直线，每只奶牛都有一个特定的标识序号，从左到右第i只奶牛的编号是Bi。

约翰认为他的奶牛队列中存在某段连续区间都是相同序号的，那他的队列就非常的美观。为了创造这样的一个连续区间，约翰决定将某个特定的序号的奶牛全部剔除队列。

问题描述：

请帮助约翰计算出通过选择除去某个特定序号的全部奶牛后，所剩下的队列中连续的有相同序号的奶牛的最大区间。

输入格式：

第一行一个正整数N，表示奶牛的数量。

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

输出格式：

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

var

i,n,j,m,k,l,max,biao,ans:longint;

a,b,c:array[0..1001] of longint;

procedure pd(t:longint);

var

i,m,j:longint;

len,max,k,lo,cc,d:longint;

begin

d:=0;

for i:=1 to n do

if c[i]
adb4
=b[t] then begin

c[i]:=-1;

inc(d);

end;

for k:=1 to d do

for i:=1 to n do

begin

if c[i]=-1 then

for j:=i to n do

c[j]:=c[j+1];

end;

lo:=1;

max:=0;

for i:=2 to n do

begin

cc:=c[i];

if c[i-1]=cc then inc(lo)

else begin

if lo>max then max:=lo;

lo:=1;

end;

end;

if max=0 then max:=lo;

if ans