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

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