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

конечно

час изменю код

хорошо...подожду)

всё

спасибо)

var a: array [1..10] of integer;k, i ,n: integer;begink:=1;n:=10;for i:=1 to n doreadln(a[i]); //ручной вводfor i:=1 to n doif i mod 2 = 1 then k:=k*a[i];writeln(k);end.