Дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале
Дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале
Гость
Ответ(ы) на вопрос:
Гостьprogram a;
var i,s,r:integer;
begin
s:=1;
read(i);
while i<>0 do
begin
if (i<0)and(i<>0) then r:=r+1 else s:=s*i;
read(i);
end;
writeln(s,r);
end.
Не нашли ответ?
Похожие вопросы