排队的奶牛

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
+1);
end;
write(max);
close(input);
close(output);
end.