Question

Помогите сделать задание B в паскале

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,5);
  Writeln('Массив:'); a.Println;
  var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
  if k=0 then Writeln('Нет')
  else Writeln('Есть: ',k)
end.

Примеры
n= 6
Массив:
1 3 4 0 5 4
Нет

n= 8
Массив:
1 1 0 4 5 0 0 5
Есть: 2