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.

Answer 2

Для решения задачи, нам необходимо пройти по всем элементам массива и выполнить два действия: 1. Вычислить сумму положительных элементов 2. Вычислить произведение ненулевых элементов

Для начала, создадим переменные, в которых будем хранить сумму и произведение:

int sum = 0;
int product = 1;

Затем,