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

[Shtraf]

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


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

[IUnknown]

Сделал. Идёт не просчёт 1 элемента
тоесть, если все элементы одинаковые то она даёт на 1 меньше

Ну неправда же, зачем так откровенно врать?

const
  m= 5;
var
   a: array[1..m] of integer =
   // (1, 1, 1, 1, 5, 2, 3, 6, 3, 3);
      (1, 1, 1, 1, 1);

  i,s,x,l: integer;
begin
   // Randomize;
   // for i:=1 to m do a[i]:= Random(4);
   for i:=1 to m do
      write(a[i]:2);
   writeln;
   s:= 1;
   x:= s;
   l:= 1;
   for i := 2 to m + 1 do
      if (i = m + 1) or (a[i] <> a[s]) then
      begin
         if i-s>l then
         begin
            x:= s;
            l:= i-s
         end;
         s:= i;
      end;
   writeln('longest sequence consists of ',l,' numbers ',a[x],', starting at ',x,' pos');
   readln
end.

Внезапно:

 1 1 1 1 1
longest sequence consists of 5 numbers 1, starting at 1 pos

. Если бы давало неправильный результат - я бы, наверное, не стал отвечать на форуме?

Аналогично: (Показать/Скрыть)

const
   m = 10;
var
   a : array[1..m] of integer;
   i, s, x, l: integer;
   n: integer;
begin
   write('n = '); readln(n);
   for i := 1 to n do
   begin
      write('a[', i:2, '] = '); readln(a[i]);
   end;

   for i:=1 to n do
      write(a[i]:2);
   writeln;
   s:= 1;
   x:= s;
   l:= 1;
   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('longest sequence consists of ',l,' numbers ',a[x],', starting at ',x,' pos');
   readln
end.

=

n = 5
a[ 1] = 1
a[ 2] = 1
a[ 3] = 1
a[ 4] = 1
a[ 5] = 1
 1 1 1 1 1
longest sequence consists of 5 numbers 1, starting at 1 pos

Что ж я все время не так делаю?

Сообщение отредактировано: IUnknown - 10.04.2012 3:11