Question

Задан массив a(10) все отрицательные элементы увеличить на единицу

Answer 1

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

begin

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

 a.Println;

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

 a.Println

end.