Question

Написать программу на Pascal.
Ввести 10 случайных чисел и посчитать количество чётных и нечётных .

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-50,50); a.Println;
  var k:=a.Where(t->t.IsOdd).Count;
  Writeln('Четных чисел ',k,', нечетных ',10-k)
end.

Пример
-45 -50 -29 12 35 -50 -33 -16 50 -24
Четных чисел 4, нечетных 6