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

tomirisestanova tomirisestanova    1   06.09.2019 07:40    0

Ответы
kaamazon kaamazon  06.10.2020 20:52
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика