Массив задан датчиком случайных чисел на интервале [-31;45].Сформировать новый массив В,состоящий из нечетных элементов массива А.Размер произвольный.

PascalABC.NET 3.5.1

begin

 var a := ArrRandom(random(100), -31, 45);  //Генерируем случайный массив

 a.Println;  //Печатаем его. Удалите строку, если не нужно

 var b := a.Where(p -> p mod 2 <> 0).ToArray;  //массив b формируется по правилу _выбранный элемент нечётный_. Полученная последовательность приводится к типу Array of T

 b.Println; //Печатаем новый массив.

end.

Объяснение: