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

p:=1 вначале, не?

я уже решил , да там p;= 1 и if (a[i] > 0) then sum:=sum+a[i];if (a[i] <> 0) then p:=p*a[i];

N, a , s, p:integer; begin s := 0; p:= 0; Readln(n); for I := 1 to n do begin read(a); if a >= 0 then inc(s, a) else p := p *a ; end; writeln(s,' ', p); End.