Question

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

Answer 1

// 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.

Answer 2

                                      PascalABC.NET                                       

Ответ:

• begin
• var 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 до с.

Пример работоспособности: