Question

Дан массив 10 на 10. Заданные случайным образом числа выбираются из отрезка от -50 до 50. Все элементы массива, которые делятся на 3 без остатка возвести в квадрат
Решить в ПаскальАВС

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(10, 10, -50, 50);

 a.Println;

 a.Transform(a -> a mod 3 = 0 ? a * a : a);

 a.Println(5)

end.