Повторение Элемента, Задачка, помогите решить Опции

[Shtraf]

Найти максимальное кол-во и значение расположенных рядом одинаковых элементов массива.
Массив <= 10


Не могу дойти до алгоритма, по которому считать кол-во элементов выполняющих условие, так чтобы, если есть ряд длинней предыдущего, он считался заново и сохранить повторяющееся значение.

[Shtraf]

Сделал. Идёт не просчёт 1 элемента
тоесть, если все элементы одинаковые то она даёт на 1 меньше. Сейчас проверю (я поменял вод данных (вод вручную не больше 10)). Это ведь не должно влиять на результат?

Добавлено через 12 мин.
НУ вот она:

 
 program LongestNear;
 const
   m=10;
 var
   a: array[1..m] of integer;
   i,s,x,l,N: integer;
 begin
   writeln('nahozhdenie samoj dlinoj cepochki povtorenij');
   {Wwod masiva}
   repeat
    write('Zadajte chislo elementov v massive (1..',
       m,') ');
    readln(N);
    if (N <= 0) or (N > m) then
      writeln('vi oshiblis! Povtorite!');
   until (N > 0) and (N <= m);
   for i := 1 to N do
   begin
     write('Zadajte element N',i,' ');
     readln(a[i])
   end;
   {nahozhdenie rezultata}
   s:= l;
   x:= s;
   l:= l;
   for i:= 2 to N+1 do
     if (i=N+1) or (a[i]<>a[s]) then
     begin
       if i-s>l then
       begin
         x:= s;
         l:= i-s
       end;
       s:= i;
     end;
   writeln('bolshee kol-vo elementov r9dom ',l,'element',a[x]);
 end.

Добавлено через 6 мин.
Пример: если N=5
a[1]=a[2]=a[3]=a[4]=a[5]=4
цепочка = 4 значение 4


Сообщение отредактировано: Shtraf - 10.04.2012 0:18