Question

Определить, сколько в массиве подряд идущих пар элементов с одинаковым значением.

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=5;

Var
 ar:array[1..n] of real;
 i,k:integer;
begin
 randomize;
  writeln('Array:');
   for i:=1 to n do
    begin
     ar[i]:=random(3);
     write(ar[i]:6);
    end;
  for i:=1 to n-1 do
  if ar[i]=ar[i+1] then k:=k+1;
  writeln;
  writeln('Res=',k);
end.

Answer 2

Для определения количества подряд идущих пар элементов с одинаковым значением в массиве, можно использовать цикл, который будет пробегать по массиву и сравнивать каждый элемент с предыдущим. Если элементы совпадают, то увеличиваем счетчик пар на 1, если нет, то обнуляем счетчик. В конце цикла получим количество подряд идущих пар элементов с одинаковым значением.

Например, предположим, у нас есть массив [1, 1, 2, 2, 2, 3, 3, 3, 3, 4]. Пройдя по этому массиву, мы увидим, что у нас есть 2 пары элементов с одинаковым значением (1, 1) и (3, 3).

Вот пример кода на JavaScript, который реализует эту логику:

function countConsecutivePairs(arr) {
  let count = 0;
  for (let i = 1; i < arr.length; i++) {
    if (arr[i] === arr[i - 1]) {
      count++;
      i++; // пропускаем следующий элемент, так как он уже был учтен в паре
    }
  }
  return count;
}

const arr = [1, 1, 2, 2, 2, 3, 3, 3, 3, 4];
console.log(countConsecutivePairs(arr)); // выводит 2

Этот код пройдет по массиву и вернет количество подряд идущих пар элементов с одинаковым значением, которые встречаются в массиве.