level 2
count
输入n个数，n<=500000，每个数不超过10000，求最多连续出现了多少个相同的数。
输入样例：
10
5 5 3 3 3 4 5 6 7 8
输出样例
3
2015年05月18日 06点05分
1
level 6
var n,fir,i,j,k,max:longint;
begin
max:=1; k:=1;
readln(n); read(fir);
for i:=2 to n do
begin
read(j);
if j=fir then inc(k)
else begin
if k>max then max:=k;
k:=1;
end;
fir:=j;
end;
writeln(max);
end.
2015年05月18日 10点05分
5
你这个程序要注意一下。最后一个是相同的时候，最后一次的K要再比较一次。
2015年05月18日 12点05分
@gt2k01- 如果输入全部相同的数，你的输出是1，不是n
2015年05月18日 13点05分
level 6
建议
lz
看一下我的，O(n)，k=2，肯定时间上是没问题的。
2015年05月18日 13点05分
6
level 6
sorryLZ我看错了。。。果然考NOIP千年200分-_-。
var n,fir,i,j,k,max:longint;
begin
max:=1; k:=1;
readln(n); read(fir);
for i:=2 to n do
begin
read(j);
if j=fir then inc(k)
else k:=1;
fir:=j;
if k>max then max:=k;
end;
writeln(max);
end.
2015年05月18日 13点05分
7