Найдите сумму и количество положительных элементов массива (30 элементов из [-30; 120])

program zz1;

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

i, k1, k2:integer;

begin

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

mas[i]:=random (151) - 30;

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

write (mas[i],' ');

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

for i:=1 to 30 do

if mas[i]>0 then begin k1:=k1+mas[i]; k2:=k2+1; end; / /проверяем, если число из массива положительное, то прибавляем его к сумме и считаем его

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

end.