Одномерный массив. Отрицательные элементы заменить максимальным элементом.

// PascalABC.NET

begin

 var n := ReadInteger('n =');

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

 a.Println;

 var m := a.Max;

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

 a.Print

end.

                                      PascalABC.NET                                       beginvar a:=ArrRandom(ReadInteger('Введите размер:'),-10,10);Println(a);a.ForEach((x,i) -> if x<0 then a[i]:= a.Max);Println(a);end.

Пояснение:

ArrRandom(a,b,c) возвращает массив размера a, заполненный случайными целыми значениями в диапазоне от b до с.

Пример работо