// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-15,20); a.Println;
var b:=a.Where(t->t.IsOdd).ToArray; b.Println
end.
Пример
-5 17 0 6 -3 10 -5 18 1 15 3 18 -1 -1 12
-5 17 -3 -5 1 15 3 -1 -1