Составить алгоритм и написать программы нахождения произведения чисел, модуль которых меньше 10 из 20 вводимых с клавиатуры целых чисел. В языке Паскаль!

Question

Владелина

18 марта, 11:24

+5

Ответы (1)

Знаете ответ?

Петуния · Answer 1

var a, p, i:integer;

begin

p:=1;

for i : = 1 to 20 do

begin

read (a) ;

if (abs (a) < 10)

then p : = p * a;

end;

write (p) ;

end.