Заполнить массив случайными числами от 1 до 50 и вывести количество чётных и нечётных...

Question

Заполнить массив случайными числами от 1 до 50 и вывести количество чётных и нечётных чисел в массиве.

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),1,50); a.Println;
  var k:=a.Where(t->t.IsOdd).Count;
  Writeln('Четных ',a.Length-k,', нечетных ',k)
end.

Пример
n= 17
45 42 36 34 47 15 3 16 47 35 14 13 3 45 28 31 16
Четных 7, нечетных 10