PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->i+9); a.Println;
a:=a.Select(t->t.IsEven ? 2*t : t).ToArray; a.Println
end.
Результат
9 10 11 12 13 14 15 16 17 18
9 20 11 24 13 28 15 32 17 36