найдите сумму всех положительных элементов одномерного массива

program zz1;

const n=10; / /задаем размер массива

var mas:array[1 ... n] of integer;

i, s:integer;

begin

for i:=1 to n do / /заполняем массив случайными числами от - 10 до 10

mas[i]:=random (21) - 10;

for i:=1 to n do / /выводим массив на экран в строчку через пробел

write (mas[i],' ');

writeln; / /переходим на новую строку для вывода

for i:=1 to n do

if mas[i]>0 then s:=s+mas[i]; / /проверяем, если элемент массива положительный, то прибавляем его к сумме

write ('сумма положительных элементов массива = ', s); / /выводим ответ

end.