Паскаль
Напишите программу, которая выводит на экран массив В в одну строку и определяет количество четных и количество нечетных элементов.

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018Внимание! Если программа не работает, обновите версию!begin  var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;  Writeln('Четных элементов ',      b.Where(t->t.IsEven).Count,      ', нечетных ',      b.Where(t->t.IsOdd).Count)end.Примерn= 20-18 -1 48 -31 -18 -34 -42 20 -30 14 -16 45 50 0 -18 39 45 19 -10 16Четных элементов 14, нечетных 6