Информативным, полезным, и информация должна быть мне еще не известная.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
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.
<u>Примеры</u>
n= 6
Массив:
1 3 4 0 5 4
Нет
n= 8
Массив:
1 1 0 4 5 0 0 5
Есть: 2
Неразрывный пробел Ctrl+Shift+пробел
перевод строки, пробел
Нет ,на рисунке белая скатерть