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

Question

Информатика

Витяхя

4 июня, 05:34

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

+2

Ответы (1)

Знаете ответ на вопрос?

Алексана · Answer 1

Program sdasd;

var a, i, otv:integer;

begin

otv: = 1;

for i: = 1 to 200 do

begin

readln (a) ;

if (a 100) do otv: = otv * a;

end;

writeln (otv) ;

end.