Question

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

Answer 1

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