PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(20, 20, 40);
a.Println;
a.Transform(t -> t mod 10 = 4 ? t div 2 : t);
a.Println
end.
26 24 38 40 26 27 32 39 32 34 32 28 36 25 40 34 20 26 21 36
26 12 38 40 26 27 32 39 32 17 32 28 36 25 40 17 20 26 21 36