Составить программу на языке Паскаля. Нужно ввести 10 чисел и найти сумму чисел больше нуля

Предыдущий
вопрос Следующий
вопрос

Программа на языке Паскаль:

program SumOfPositiveNumbers
va
i, num: integer
sum: integer
begi
sum := 0
for i := 1 to 10 d
begi
write('Введите число ', i, ': ')
readln(num)
if num > 0 the
sum := sum + num
end
writeln('Сумма чисел больше нуля: ', sum)
end.

Эта программа позволяет ввести 10 чисел и находит сумму чисел, которые больше нуля. Мы используем цикл for для ввода чисел и проверки условия if num > 0, чтобы увеличить сумму sum, если число больше нуля. В конце программа выводит найденную сумму.