ПООМГИТЕ ПЛИИИЗ!С клавиатуры вводятся числа до тех пор пока сумма этих чисел не...

Question

ПООМГИТЕ ПЛИИИЗ!С клавиатуры вводятся числа до тех пор пока сумма этих чисел не превысится 300. Найдите произведение нечетных чисел.найдите кол-во отрицательных чисел.

Answer 1

uses crt;
Var a,x1,x2:integer;
Begin
x1:=1;
x2:=0;
readln(a);
While a<300 do<br>      Begin
      if (a mod 2<>0) then x1:=x1*a;
      if (a<0) then x2:=x2+1;<br>      readln(a);
      end;
Writeln('Произведение нечётных чисел=', x1);
Writeln('Кол-во отрицательных чисел=' , x2);
readln;
end.