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

uses crt;

var a:array[1 ... 11] of integer;

i, j, s, k:integer;

begin

writeln ('Исходный массив: ') ;

for i:=1 to 10 do begin

a[i]:=random (5) ;

write (a[i]:4) ;

end;

s:=1; k:=0;

for i:=1 to 10 do begin

if a[i]=a[i+1] then s:=s+1;

if a[i]a[i+1] then begin if k
end;

writeln;

writeln ('Наибольшая последовательность одинаковых элементов: ', k) ; write (k) ;

end.

Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).