Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. определить, сколько раз последовательность поменяет знак. ограничения! нельзя использовать условный оператор (if) и оператор выбора (case). интерфейс программы должен выглядеть следующим образом: введите последовательность целых чисел через пробел. последним введите число нуль. -> -1 -2 3 6 -5 -7 8 9 0 последовательность меняет знак 3 раз(а).
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.