===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ArrRandom(n, -10, 10);
a.Println;
a.Transform(p -> Sign(p));
a.Println
end.
