Однопроходные алгоритмы

[amm11]

Дано целое число N и набор из N целых чисел, содержащий только
нули и единицы. Найти номер элемента, с которого начинается самая
длинная последовательность одинаковых чисел, и количество элементов
в этой последовательности. Если таких последовательностей несколько,
то вывести номер первой из них.
Помогите пожалуйста разобраться в задачке, хотя эта тема поднималась на форуме, но окончательного решения так и не получилось. Не пойму, как определить, с какого элемента начинается первая наибольшая последовательность. Вот код:

var a,b,i,n,k,max,j:integer;
begin
write('Размер набора чисел  n = ');
read(n);writeln('Ввести первое число последовательности ');
readln(b);
k:=1; max:=1; j:=0;
for i:=2 to n do 
begin
read(a);
if a=b then begin k:=k+1; end else begin b:=a; k:=1;end;
{ *сравниваем первое число со вторым,подсчитываем количество одинаковых 
чисел, иначе сбрасываем счетчик,а начальному числу присваиваем значение
 отличного числа, чтобы считать Эти числа*}
if (k>=max)  then begin max:=k; j:=i+1-k; end;
{после выхода из сравнения, смотрим на наибольшую последовательность.
Если новая больше то её переписываем вместо старой, и, тут же считаем начало самой
* длинной последовательности}
end;
writeln;
write(j,' - № элемента, с которого начинается самая большая последовательность');
writeln;
writeln(' равная ',max,' числам');
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Я бы как-то так делал:

read(n);
max:=1; lastchar:=1; ind:=1;
for i:=1 to n do
begin
   write('Enter element ', i, ': ');
   readln(b);
   if b=lastchar then c:=c+1 else c:=1;
   lastchar:=b;
   if max<c then begin max:=c; ind:=i-max+1; end;
end;

[amm11]

Спасибо!! :-)

[amm11]

Сообщение от Alex11223

Я бы как-то так делал:

read(n);
max:=1; lastchar:=1; ind:=1;
for i:=1 to n do
begin
   write('Enter element ', i, ': ');
   readln(b);
   if b=lastchar then c:=c+1 else c:=1;
   lastchar:=b;
   if max<c then begin max:=c; ind:=i-max+1; end;
end;

все о'кей только наверно, все-таки, надо сначала ввести первое число, а затем переменной lastchar присвоить его значение, иначе при первой 1 счетчик =0 и i:=2

[Alex11223]

ой, lastchar:=1 я вроде случайно написал. Хотя наверно это не связано с ошибкой.
что-то не смог повторить, у меня всё работает.

10
Enter element 1: 1
Enter element 2: 1
Enter element 3: 1
Enter element 4: 0
Enter element 5: 1
Enter element 6: 0
Enter element 7: 1
Enter element 8: 0
Enter element 9: 1
Enter element 10: 0
max=3 ind=1

[Serge_Bliznykov]

что-то не смог повторить, у меня всё работает.

угу. подтверждаю. проверил. всё работает.
Отличное решение, мне понравилось


p.s. значение lastchar при первом проходе вообще неважно!
Можете, например, иницилизировать его нулём, или тысячей.
или даже так:

lastchar:=-1;