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

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

Answer 3

Для решения этой задачи вам понадобится пройтись по всем элементам массива, найти максимальный элемент и заменить все отрицательные элементы этим максимальным значением. Вот пример кода на языке Python:

pythonCopy code
def replace_negative_with_max(arr):
    # Находим максимальный элемент массива
    max_val = max(arr)
    
    # Проходим по всем элементам массива
    for i in range(len(arr)):
        if arr[i] < 0:
            arr[i] = max_val
    
    return arr

Вы можете вызвать эту функцию, передав в нее ваш одномерный массив, и она вернет измененный массив, где все отрицательные элементы заменены максимальным элементом.