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

Question

Информатика

Агрипка

21 июня, 22:13

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

+3

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