Question

Заданы одномерные массивы A и B. Найти сумму положительных элементов массива B и заменить на это значение все элементы массива А расположение перед максимальным элементом массива

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
  var sp:=b.Where(t->t>0).Sum;
  var im:=a.IndexMax;
  if im>0 then begin a:=ArrFill(im,sp)+a[im:]; a.Println end
  else Writeln('Максимальный элемент стоит первым')
end.

Пример
n= 15
-34 -10 30 16 -36 35 10 39 21 50 29 -41 4 25 -28
n= 13
-36 -6 -3 5 -34 -19 -35 -23 2 49 -8 24 -3
80 80 80 80 80 80 80 80 80 50 29 -41 4 25 -28

Answer 2

Для выполнения данной задачи, вам следует выполнить следующие шаги:

1. Найти максимальный элемент в массиве B.
2. Найти сумму положительных элементов массива B.
3. Заменить все элементы массива A, которые располагаются перед максимальным элементом массива B, на значение суммы положительных элементов массива B.

Пример кода на Python, реализующий эти шаги:

pythonCopy code
def find_max(arr):
    max_val = arr[0]
    max_index = 0
    for i in range(1, len(arr)):
        if arr[i] > max_val:
            max_val = arr[i]
            max_index = i
    return max_index

def main():
    A = [1, 2, 3, 4, 5]
    B = [-1, 2, -3, 4, -5]

    max_index = find_max(B)
    sum_positive_B = sum([x for x in B if x > 0])

    for i in range(max_index):
        A[i] = sum_positive_B

    print("Исходный массив A:", A)

if __name__ == "__main__":
    main()

В этом коде find_max находит индекс максимального элемента в массиве B, а затем мы суммируем все положительные элементы B. Затем мы заменяем элементы массива A до индекса максимального элемента на сумму положительных элементов B.