Введите ряд чисел,но как только пользователь вводит - вопрос №82845381 от аы437 11.12.2022 02:22

Question

Информатика: Введите ряд чисел,но как только пользователь вводит -1 программа должна сосчитать кол-во четных и нечетных сделайте программу в паскале

аы437 · Answer

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadSeqIntegerWhile(t->t<>-1).ToArray;
var k:=a.Where(x->x.IsEven).Count;
Writeln('Четных чисел ',k,', нечетных ',a.Length-k)
end.

Пример
5 12 -3 7 0 12 43 -24 17 -1
Четных чисел 4, нечетных 5