Question

Задача 3. Напишите программу, которая в последовательности натуральных
чисел определяет произведение нечётных чисел. Программа получает на
вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется нечётное число. Количество чисел не
превышает 1000. Введённые числа не превышают 30000. Программа должна
вывести одно число – произведение нечётных чисел.

Answer 1

program main;

var n, proiz, k, a: integer; //объявление переменных

begin

proiz:=1; //начальное значение счетчика произведения

readln(n); //ввод количества чисел в последовательности

for k:=1 to n do //цикл

begin

readln(a); //ввод следующего числа

if (a mod 2<>0) then proiz:=a*proiz; // число нечётное, подсчитываем произведение

end;

writeln('proizvedenie =',proiz); //вывод произведения нечётных чисел

end.