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

atom33 atom33    3   30.09.2019 21:50    4

Ответы
Uvarovakatya200 Uvarovakatya200  09.10.2020 06:23
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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика