1. Дан одномерный массив числовых значений, насчитывающий n элементов. Вычислить сумму положительных элементов и произведение ненулевых элементов.

Program massiv;

const

n=5; {определение количества элементов массива}

var

a:array [1 ... n] of integer;

pr, sum, i:integer;

begin

pr:=1;

sum:=0;

for i:=1 to n do

readln (a[i]); {заполнение массива с клавиатуры через enter}

for i:=1 to n do

begin

if a[i]>0 then sum:=sum+a[i]; {если элемент больше 0, то его значение прибавляется к сумме}

if a[i]0 then pr:=pr*a[i]; {если элемент не равен 0, то значение произведения умножается на элемент}

end;

writeln ('произведение = ', pr);

writeln ('сумма = ', sum);

end.