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

Question

Информатика

Агрипка

23 сентября, 17:12

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

+1

Ответы (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.