===== PascalABC.NET =====
begin
var a := ArrRandom(10, -20, 20);
a.Println;
a.Transform(p -> p < 0 ? p + 1 : p);
a.Println
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(10, -20, 20);
a.Println;
a.Transform(p -> p < 0 ? p + 1 : p);
a.Println
end.