Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом - Pascal ABC (13405)
Формулировка задачи:
41) Заполните массив случайными числами в интервале [0,5]. Определить, есть ли в нем элементы с одинаковыми значениями, стоящие рядом.
Пример:
Массив:
1 2 3 3 2 1
Есть: 3
Пример:
Массив:
1 2 3 4 2 1
Нет
Решение задачи: «Определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом»
textual
Листинг программы
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 и выводится сообщение о наличии повторяющихся значений. После проверки всех элементов выводится итоговое сообщение.
Таким образом, данный код позволяет определить, есть ли в массиве элементы с одинаковыми значениями, стоящие рядом.