Question

Помогите решить задачу на языке ПАСКАЛЬ:
В заданном массиве заменить все отрицательные элементы на "-1", все положительные - на "1", нули оставить без изменений.

Answer 1

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

begin

 var n := ReadInteger;

 var a := ArrRandom(n, -10, 10);

 a.Println;

 a.Transform(p -> Sign(p));

 a.Println

end.