===== PascalABC.NET =====
begin
ReadArrInteger(ReadInteger)
.Pairwise.Count(p -> Sign(p[0]) <> Sign(p[1]))
.Println
end.
Сначала вводим длину массива, затем все его элементы.
===== PascalABC.NET =====
begin
ReadArrInteger(ReadInteger)
.Pairwise.Count(p -> Sign(p[0]) <> Sign(p[1]))
.Println
end.
Сначала вводим длину массива, затем все его элементы.