Составить программы в среде PascalABC.NET : Задано N (количество) целых чисел. Вычислить сумму положительных числе среди этого набора (цикл for).

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

program SumOfPositiveNumbers
va
N, i, num, sum: integer
begi
writeln('Enter the number of integers: ')
readln(N)
sum := 0
writeln('Enter ', N, ' integers: ')
for i := 1 to N d
begi
readln(num)
if num > 0 the
sum := sum + num
end
writeln('The sum of positive numbers is: ', sum)
end.

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