Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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