Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от A...

Question

Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от A до B
на языке паскаль программку

Comments

Используя цикл или массив

Answer 1

Var a,b,s,p,x: integer;
begin
p:=1;
s:=0;
read (a,b);
for x:= a to b do begin
if x>0 then  s:=s+x;
if x<0 then p:=p*x;<br>end;
writeln(s,p);
end.