Question

Запросить 200 чисел, вычислить произведения чисел, которые не попадают в отрезок от -100 до 100

Answer 1

program sdasd;

var a, i, otv:integer;

begin
otv:= 1;
for i:= 1 to 200 do
      begin
          readln(a);
          if (a < -100) and (a > 100) do  otv:= otv * a;
       end;
writeln(otv);
end.