Ряд в массиве

[Афанасий[vedma]]

Массив из 15 элементов задан с клавиатуры. Определить в массиве длину самого длинного ряда повторяющихся чисел. (Например, в массиве: 2, 4, 4, 4, 8, 8, 9, 12, 12, 14, 16, 16, 85 искомое значение равно трем, т.к. самая длинная последовательность повторяющихся чисел состоит из трех четверок)

очень трудно решить.

[Вадим Мошев]

К какому сроку надо вам решить?
Я могу решить эту задачу вам полностью за 100 рублей на счёт мобильного телефона.
Согласны?

[Афанасий[vedma]]

я на мели - денег совсем нет=( чисто по братски парни - помогите

[Вадим Мошев]

Ну, вот алгоритм поиска самого длины самого длинного ряда одинаковых цифр

for i:=1 to 9 do
                  begin
                    if A[i] = A[i+1] then
                                        inc(k)

                                     else

                                        if k > p then
                                                  begin
                                                   p:=k;
                                                   k:=1;
                                                  end;
                  end;

Длина находится в переменной p

Вам лишь осталось только объявить переменные, вести входные данные, вывести результат.

[Афанасий[vedma]]

 program z1;;
var
i: integer;
k,p: real;
begin

Вот так да? Или к и р тоже integer?

[Вадим Мошев]

к и р тоже integer

[Афанасий[vedma]]

Спасибо Вадим) я вот не шарю по паскалю

[Афанасий[vedma]]

А, что такое А?

[Вадим Мошев]

Это Массив..............

[Афанасий[vedma]]

A: array[1..20] of integer;
begin
k:=0;
p:=0;

Совсем запутался