Найти произведение элементов массива, имеющих нечетное значение.

var a: array[1 ... 10000] of integer; / /Переменная для массива.

i: integer; / /Переменная для счётчика.

sum: integer; / /Переменная для суммы нечётных элементов.

begin / /Начало

writeln ('Введите количество элементов массива'); / /Запрашиваем размер массива.

readln (n); / /Вводим с клавиатуры.

writeln ('Заполните массив с клавиатуры'); / /Сообщение о необходимости ввода.

for i : = 1 to n do readln (a[i]); / /Заполняем массив с клавиатуры.

for i : = 1 to n do if a[i] mod 2 > 0 then sum : = sum + a[i]; / /Ищем сумму нечётных элементов.

writeln ('Сумма нечётных элементов массива равна ', sum); / /Выводим сумму нечётных.

end. / /Конец.