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

написать программу в паскале

Question

Информатика

Самсоний

3 февраля, 16:56

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

написать программу в паскале

+3

Ответы (1)

Знаете ответ на вопрос?

Моша · Answer 1

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.

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

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

написать программу в паскале