Question

Se citeste un sir de numere naturale pana la intalnirea lui 0
Calculati suma numerelor pozitive si produsul numerelor negative

Answer 1

var n,sum,prod: integer;
Begin
sum:=0;
prod:=1;
readln(n);
while (n<>0) do
begin
if n>0 then sum:=sum+n     
          else prod:=prod*n;
readln(n);       
end;
writeln('Suma este:',sum);
writeln('Produsul este:',prod);
End.