Question

Нааишите программу которая в последовательности натуральных чисел определяет суммк положительных чисел помогите быстрей

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('S=',ReadSeqInteger('->',ReadInteger('n=')).Where(x->x>0).Sum)
end.

Пример
n= 10
-> 15 -20 0 18 34 -11 -7 14 11 18
S=110

Answer 2

Конечно, я могу помочь вам написать программу на языке Python, которая будет определять сумму положительных чисел в последовательности натуральных чисел.

def sum_positive_numbers():
    # Вводите последовательность натуральных чисел через пробел
    numbers = input("Введите последовательность натуральных чисел через пробел: ").split()
    
    sum_positive = 0  # Изначально сумма положительных чисел равна 0
    
    for num in numbers:
        num = int(num)  # Преобразуем числа из строки в целое число
        if num > 0:
            sum_positive += num  # Если число положительное, добавляем его к сумме
    
    return sum_positive

print(sum_positive_numbers())

Программа запрашивает вас ввести последовательность натуральных чисел через пробел. Затем она разделяет введенную строку на отдельные числа и проверяет каждое число. Если число положительное, оно добавляется к переменной `sum_positive`. В конце программа выводит сумму положительных чисел.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.