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

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= 1745 42 36 34 47 15 3 16 47 35 14 13 3 45 28 31 16Четных 7, нечетных 10