Question

Определить в одномерном числовом массиве число соседств из двух чисел разного знака. Без рандома нужно.​ На Паскале

Answer 1

===== PascalABC.NET =====

begin

 ReadArrInteger(ReadInteger)

   .Pairwise.Count(p -> Sign(p[0]) <> Sign(p[1]))

   .Println

end.

Сначала вводим длину массива, затем все его элементы.