Question

Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Определить, сколько раз последовательность поменяет знак. Ограничения! Нельзя использовать условный оператор (If) и оператор выбора (Case). Интерфейс программы должен выглядеть следующим образом: Введите последовательность целых чисел через пробел. Последним введите число нуль. -> -1 -2 3 6 -5 -7 8 9 0 Последовательность меняет знак 3 раз(а).

Answer 1

// 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.