Question

дан массив g(48) (заполнен случайными числами в интервале от -10 до 10) заменить все отрицательные элементы числом -1
Срочно помогите!!! ​

Answer 1

// PascalABC.NET

begin

 var g := ArrRandom(48, -10, 10);

 g.Println;

 g.Transform(p -> p < 0 ? -1 : p);

 g.Print

end.