Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.