Массивы

[Zheka_1]

В целочисленном массиве найти наиболее длинную цепочку подряд идущих одинаковых элементов. в delphi

[stupoz]

Delphi не знаю, но собственно поиск на Pascal'е будет таким (если не ошибаюсь)

MaxPoz:=1;
MaxLen:=1;
Poz:=1;
Len:=1;
for i:=2 to Size do
  if A[i]=A[i-1]
  then Inc(Len);
  else  begin
            if Len>MaxLen
            then begin
                      MaxPoz:=Poz;
                      MaxLen:=Len;
                   end
            Poz:=i;
            Len:=1;
         end

В конце надо добавить ещё одну проверку Len-MaxLen, т.к. наиболее длинная цепочка может оказаться в конце.

[Stilet]

Zheka_1

Вводи массива показать сможешь?