вводя числа с клавиатуры без ограничения их количества(конец ввода число 0),найдите сумму...

Question

вводя числа с клавиатуры без ограничения их количества(конец ввода число 0),найдите сумму положительны хи произведение отрицательных чисел.написать в программе E6 и E7 в ABC паскале.это оператор варианта.нужно срочно решить

Answer 1

var
  a, s_p, s_o: integer;
begin

  s_o := 1;

  s_p := 0;
  repeat
    readln(a);
    if(a < 0) then s_o := s_o * a else
      s_p := s_p + a;
  until(a = 0);
  writeln('Произведение отр.: ', s_o);
  writeln('Сумма пол.: ', s_p);
end.