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

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 gt; 0 then sum := sum + a[i]; //Разыскиваем сумму нечётных частей.

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

end. //Конец.