Составить алгоритм и написать программы нахождения произведения чисел, модуль которых меньше 10 из 20 вводимых с клавиатуры целых чисел. В языке Паскаль!
program MultiplyNumbers; var i, num, product: integer; begin product := 1; for i := 1 to 20 do begin write('Enter number ', i, ': '); readln(num); if abs(num) < 10 then product := product * num; end; writeln('The product of numbers with absolute value less than 10 is: ', product); end.
var
i, num, product: integer;
begin
product := 1;
for i := 1 to 20 do
begin
write('Enter number ', i, ': ');
readln(num);
if abs(num) < 10 then
product := product * num;
end;
writeln('The product of numbers with absolute value less than 10 is: ', product);
end.