Ответ:
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.
Объяснение: