5.)Программа определяет максимальное количество следующих друг за другом одинаковых элементов.

type

mas=array[1..1000] of integer; //объявляем тип массива для хранения в //нём значений

var dl,i,a,j,b:integer; //переменные dl- длинна массива, i- счётчики, a- //переменная для хранения числа, перед записью его в массив, b- служит для //хранения количества повторяющихся друг за другом объектов, j- служит //для хранения максимального количества повторяющихся друг за другом //значений.

m:mas; //массив для хранения введённых чисел, и их обработки

Begin

dl:=1; //присваиваем длине массива 1, для занесения 1-го значения на 1-е //место в массиве

repeat //для ввода неизвестного числа значений используем цикл

read(a); //программа читает значения с клавиатуры для дальнейшего

//его занесения в массив

If a>0 Then //чтобы в массив не попал 0, или отрицательное число, //сравниваем введённое значение

Begin

m[dl]:=a; //если значение >0, то заносим значение на //соответствующее место

inc(dl); //увеличиваем длину на 1, чтобы вставить следующее //значение

end;

until a=0; //выход из цикла, когда введён 0

dl:=dl-1; //т.к. когда мы ввели 0, счётчик уже увеличился, уменьшаем //длину массива

b:=1; //присваиваем минимальное значение повторяющихся объектов

j:=1; //присваиваем минимальное значение повторяющихся объектов

for i:=1 to dl do //начинаем цикл для перебора всех элементов массива

begin

If m[i]=m[i+1] Then inc(b)else b:=1; //если элементы равны, //счётчик увеличиться на 1, если нет, ему будет присвоена 1, сделано это для //того, чтобы счётчик не рос при каждом одинаковом элементе

If b>j Then //сравниваем с максимумом

begin

j:=b;//если значение больше максимум, максиму //присвоиться значение

b:=1;//а сам счётчик примет значение 1

end;

end;

If j>1 Then writeln(j) Else writeln('Net takih elementov'); //есть полученное //значении увеличилось, то программа выведет его, если же оно осталось //неизменным, то есть равным 1, программа напишет соответствующее //сообщение.

end.