Заполните массив из 20 элементов случайными числами в диапазоне от 20 до 40. вывести на экран. затем уменьшить вдвое все элементы, оканчивающиеся цифрами 4. результат на экран.

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