// PascalABC.NET
begin
var g := ArrRandom(48, -10, 10);
g.Println;
g.Transform(p -> p < 0 ? -1 : p);
g.Print
end.
