задан массив состоящий из 10 элементов, определить произведение всех нечётных элементов в...

Question

задан массив состоящий из 10 элементов, определить произведение всех нечётных элементов в массиве

Answer 1

var
mas:array[1..10] of integer;
i,proiz:integer;
begin
proiz:=1;
for i:=1 to 10 do
begin
readln (mas[i]);    //заполняем массив
if (mas[i] mod 2<>0) then proiz:=proiz*mas[i];    //проверяем: является элемент массива нечт.
end;
writeln (proiz);           //выводим произведение нечетных элеметов массива
end.