Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом - Pascal ABC (13405)

Формулировка задачи:

41) Заполните массив случайными числами в интервале [0,5]. Определить, есть ли в нем элементы с одинаковыми значениями, стоящие рядом. Пример: Массив: 1 2 3 3 2 1 Есть: 3 Пример: Массив: 1 2 3 4 2 1 Нет

Решение задачи: «Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом»

Листинг программы

const N = 6;
var a: array[1..N] of integer;
var i,j,l: integer;
begin
for i:=1 to N do begin
  a[i] := random(0,5);
  write( a[i] + ' ' );
end;
writeln;
 
l := 0;
j := a[1];
for i:=2 to N do begin
  if a[i] = j then begin
    l := l + 1;
    writeln('Есть: '+ a[i]);  
  end;
  j := a[i];
end;
if l = 0 then
    writeln('Нет');  
end.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC определяется массив a размером 6. Затем в цикле for происходит заполнение массива случайными числами от 0 до 5. После этого выводится значение первого элемента массива. Затем начинается второй цикл for, который проходит по всем элементам массива, начиная со второго. В каждой итерации проверяется, совпадает ли текущий элемент с предыдущим. Если да, то увеличивается счетчик l и выводится сообщение о наличии повторяющихся значений. После проверки всех элементов выводится итоговое сообщение. Таким образом, данный код позволяет определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом.