Question

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

Answer 1

pascal:

var

i, sum, count: integer;

begin

for count := 0 to 7 do

 begin

   readln(i);

   sum := sum + i;

end;

writeln(sum);

end.

Answer 2

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

pythonCopy code
def main():
    # Создаем список для хранения введенных чисел
    numbers = []
    
    # Запрашиваем ввод 8 чисел с клавиатуры
    for i in range(8):
        try:
            num = float(input(f"Введите число {i+1}: "))
            numbers.append(num)
        except ValueError:
            print("Ошибка ввода! Введите число.")
            return  # Завершаем программу, если введено не число

    # Вычисляем сумму положительных чисел
    sum_positive = sum(num for num in numbers if num > 0)

    # Выводим результат
    print(f"Сумма положительных чисел: {sum_positive}")


if __name__ == "__main__":
    main()

Пример использования программы:

yamlCopy code
Введите число 1: 5
Введите число 2: -2
Введите число 3: 7
Введите число 4: 0
Введите число 5: 10
Введите число 6: -3
Введите число 7: 2
Введите число 8: 1
Сумма положительных чисел: 25.0

Программа запрашивает ввод 8 чисел, затем находит сумму только положительных чисел и выводит результат на экран.