Question

дан одномерный массив a n найти сумму элементов превышающих по абсолютному значению заданное значение

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию
begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var r:=ReadInteger('Введите число для отсечки данных:');
  Writeln('Сумма искомых значений равна ',a.Where(t->Abs(t)>r).Sum)
end.

Пример
n= 10
-5 23 -2 -13 20 -45 13 23 49 37
Введите число для отсечки данных: 30
Сумма искомых значений равна 41

Answer 2

Для нахождения суммы элементов одномерного массива a, превышающих по абсолютному значению заданное значение x, вы можете использовать следующий псевдокод:

1. Инициализируйте переменную sum для хранения суммы элементов, которые удовлетворяют условию.

2. Пройдитесь по всем элементам массива a в цикле.

3. Для каждого элемента element выполните следующее:

   • Проверьте, превышает ли абсолютное значение element заданное значение x. Это можно сделать с помощью функции abs() (или модуля) для получения абсолютного значения элемента.

   • Если абсолютное значение element больше x, добавьте element к переменной sum.

4. После завершения цикла, переменная sum будет содержать сумму всех элементов массива a, которые превышают по абсолютному значению заданное значение x.

Пример на Python:

pythonCopy code
def find_sum_above_absolute_value(arr, x):
    total_sum = 0
    for element in arr:
        if abs(element) > x:
            total_sum += element
    return total_sum

# Пример использования функции
a = [1, -2, 3, -4, 5]
x = 2
result = find_sum_above_absolute_value(a, x)
print("Сумма элементов превышающих по абсолютному значению", x, ":", result)

В этом примере функция find_sum_above_absolute_value применяет описанный выше алгоритм для нахождения суммы элементов массива a, превышающих по абсолютному значению значение x.