Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа m. на языке паскаль
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа m. на языке паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Product;
var
m, n, number, product: integer;
begin
write('Enter a number: ');
readln(m);
product := 1;
write('Enter the length of the sequence: ');
readln(n);
for var i := 1 to n do
if number > m thenbegin
write('Enter number ', i, ': ');
readln(number);
product := product * number;
end;
writeln('The product of numbers greater than ', m, ' is ', product);
end.