Найти сумму положительных элементов массива - Pascal ABC (12898)

Одномерные массивы (векторы) 1. Найти сумму положительных элементов массива

Листинг программы

s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
write('Сумма положительных=',s);

Объяснение кода листинга программы

Переменная s инициализируется значением 0.
Переменная n получает значение от пользователя, но в данном случае это просто число больше или равное 1.
Переменная a получает значение от пользователя, предполагается, что это массив целых чисел.
Переменная s обновляется каждый раз, когда встречается положительное число в массиве a. Это достигается с помощью условного оператора if a[i] > 0 then s := s + a[i].
После прохода по всем элементам массива a, значение переменной s будет содержать сумму всех положительных чисел.
Выводится сообщение с помощью функции write, включая текст Сумма положительных= перед значением переменной s.