PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var K := ArrRandom(9, -50, 50);
K.Println;
K.Transform(t -> t * t);
K.Println
end.
22 -21 36 42 -2 37 42 29 49
484 441 1296 1764 4 1369 1764 841 2401