Дана последовательность чисел, заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале

Question

Информатика

Васюня

10 февраля, 00:57

Дана последовательность чисел, заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале

+5

Ответы (1)

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

Вербния · Answer 1

Program a;

var i, s, r:integer;

begin

s:=1;

read (i) ;

while i0 do

begin

if (i<0) and (i0) then r:=r+1 else s:=s*i;

read (i) ;

end;

writeln (s, r) ;

end.