Question

Дан массив целых чисел. Найти сумму только тех чисел, которые меньше задданого числа М. Считать, что такие числа есть.

Answer 1

===== PascalABC.NET =====

begin

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

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

 a.Println;

 var m := ReadInteger('M =');

 a.FindAll(p -> p < m).Sum.Println

end.

Answer 2

Для решения этой задачи нужно пройтись по всем элементам массива и сложить только те числа, которые меньше заданного числа М. Вот пример кода на Python, реализующий эту логику:

pythonCopy code
def sum_less_than(numbers, M):
    total = 0
    for num in numbers:
        if num < M:
            total += num
    return total

Вы можете вызвать эту функцию, передав массив чисел и значение М, чтобы получить сумму чисел, удовлетворяющих условию. Например:

pythonCopy code
numbers = [1, 2, 3, 4, 5, 6]
M = 5

result = sum_less_than(numbers, M)
print(result)  # Вывод: 10

В этом примере суммируются только числа 1, 2, 3 и 4, так как они меньше 5. Результат равен 10.