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

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. //Конец.