Question

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

Answer 1

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.