Вычислить сумму положительных и произведение отрицательных элементов массива написать программу в паскале

Question

Вычислить сумму положительных и произведение отрицательных элементов массива написать программу в паскале

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a: array [1..10] of integer; s,s1,i: integer; begin s:=0; s1:=1; for i:=1 to 10 do begin readln(a[i]); if a[i]>0 then s:=s+a[i]; if a[i]<0 then s1:=s1*a[i]; end; writeln('Сумма: ',s,', произведение: ',s1); end.