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

Question

Тревор

16 июля, 10:45

+2

Ответы (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.