Question

преобразовать одномерный массив из 10 элементов, заменив все отрицательные числа на -1 , а положительные на +1

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

Внимание! Если программа не работает, обновите версию!

begin

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

 a.Println;

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

 a.Println

end.