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

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

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

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

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