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

Нюра

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