Помогите решить задачу

[Hranitel]

Огромная просьба кто может решить такую задачу на Паскале. Заранее благодарен. В массиве A(n) найти наиболее длинную цепочку стоящих подряд попарно различных элементов.

[Arkuz]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
 count=10;

var
 mas:array[1..count] of integer;
 i,k,j,b,p:integer;
begin
  randomize;
  k:=1;
  b:=1;
  for i:=1 to count do
  begin
    mas[i]:=random(5
    );
    write(mas[i]);
    write(' ');
  end;
  readln;
  for i:=2 to count do
  begin
   if mas[i-1]=mas[i] then
                      begin
                        inc(k);
                        p:=mas[i];
                      end
                      else
                      begin
                        if k>b then begin b:=k; p:=mas[i-1]; end;
                        if k<b then b:=b+1-1;

                        k:=1;
                      end;
  end;
  for j:=1 to b do
  begin
   mas[j]:=p;
   write(p);
   write(' ');
  end;
  readln;
end.

В принципе работает, но иногда подглючивает...
Помогите найти ошибку, аж самому интересно стало

[Hranitel]

Спасибо (конечно, есть непонятные моменты в коде у тебя). Но всё же задание немного другое: Найти максимально длинную цепочку попарно РАЗЛИЧНЫХ элементов. Интересно кто понимает подскажите как это сделать или фрагмент кода...

[Arkuz]

Т.е я так понимаю найти типа так из цепочки 3 4 5 5 3 3 5 7 8
дожен найти 55 и 33. Так чтоли?

[Hranitel]

Из твоего примера цепочки 578

[Роман Радер]

а почему не 3 4 5? тоже различные, подряд...

[Hranitel]

Дело в том ,что если рассматривать такой подход,то всё равно в этом примере хвост цепочки длинее 3 5 7 8

[Роман Радер]

аха, въехал))

[Hranitel]

Ну что никаких мыслей ниукого нет?

[Serge_Bliznykov]

Hranitel
И в чём сложность?
да что тут мыслить? я не вижу сложностей то...
обычный однопроходный алгоритм, считаем сколько подряд различных элементов. Как только одинаковые встретились - проверяем - в этот раз последовательность больше предыдущего раза или нет.. если больше - сохраняем её...
вот, тестируйте:

const N = 15;
var
   a : array[1..N] of integer;
   i, iFirst, MaxLength, curLength : integer;
begin
  Randomize;
  for i:=1 to N do begin
    A[i] := Random(5)+1; {числа от 1 до 5}
    Write(A[i]:3);
  end;
  WriteLn;

  iFirst := 0;
  MaxLength := 0;

  i:=2;
  curLength := 1;
  while i <= N do begin
     if A[i]<>A[i-1] then inc(curLength)
     else begin
       if curLength>MaxLength then begin
         MaxLength := curLength;
         iFirst := i-MaxLength;
         WriteLn('очередной максимум в A[',iFirst:1,'] длина = ',MaxLength:1)
       end;
       curLength := 1;
     end;
     inc(i);
  end;
  if curLength>MaxLength then begin
    MaxLength := curLength;
    iFirst := i-MaxLength;
    WriteLn('очередной максимум в A[',iFirst:1,'] длина = ',MaxLength:1)
  end;

  WriteLn('Максимальная последовательность с A[',iFirst:1,'] длина = ',MaxLength:1)
    
end.