Задача на одномерный массив

[ZzMaximka]

Всем доброго времени суток!
Помогите с решением задачки, пожалуйста!
Дан целочисленный массив размера N. Преобразовать массив, увеличив его первую серию наибольшей длины на один элемент. Серия - это группа подряд идущих одинаковых элементов, длина серии — количество этих элементов (длина серии может быть равна 1).

[Faridik]

Ну если длина серии может быть равна 1,то так выходит что первая серияя это и есть первый элемент?

[Zer0]

Faridik, читайте условие внимательнее:

увеличив его первую серию наибольшей длины на один элемент

Если подряд нет одинаковых элементов, то да, первая серия - это первый элемент. В других случаях - нет

[roperd]

Вот пример программы, задачу вроде бы понял, хотя с такими ещё не сталкивался, не понятно только, как проверить, какая из серий имеет наибольшую длину, но вот есть некая наработка на паскале:

uses
Crt;
Const
N = 10; {диапазон значений элементов хранящихся в массиве (произвольное число)}
var
a: array [1..N] of byte;
i,j,k,l,m: byte;
begin
ClrScr;
WriteLn;
l := 0;
for I := 1 to N do
ReadLn(a[i]);
for j :=1 to n do
If (a[j] = a[j + 1]) then
{Проверка равенства текущего элемента следующему, есть недостаток, выбрасывается первый элемент}
l := l + 1;
{счётчик подряд идущих одинаковых элементов, т.е. узнаём длину серии}
If l > 0 then
{Проверяем условие существования серии}
begin
for k := 1 to N do
If (a[k] = a[k + 1]) then
{Снова проверяем условие, если предыдущий элемент массива равер следующему, значит увеличиваем, такие элементы на единицу}
a[k] := a[k] + 1;
WriteLn('Длина серии :'#0, l);
for m := 1 to n do
WriteLn('Преобразованные элементы массива :'#0, a[m]);
end
else
If (i = 0) then
{Проверяем условие отсутствия серий}
begin
a[1] := a[1] + 1;
{Если серия отсутствует, то за неё принимается первый элемент, соответственно увеличиваем его на единицу}
WriteLn(a[1]);
end;
ReadKey;
end.

[ZzMaximka]

Всем спасибо за ответы.