1. Для данного массива установить наибольшую длину последовательности одинаковых элементов, которые расположены рядом.

program zz1;

const n = 50; / / задаем количество элементов в массиве

var i, s, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (2);

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

i:=1;

while i< = n-1 do

begin

while m[i]=m[i+1] do

begin

inc (k); inc (i);

if i=n then break;

end;

if k>s then s:=k;

k:=0; inc (i);

if i=n then break;

end;

writeln (' наибольшая длина последовательности одинаковых элементов, которые расположены рядом = ', s+1); / / выводим ответ

end.