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