Răspuns:
program produs;
var b:array[1..100] of integer;
n, i, prod:integer;
begin
write('Dati numarul de elemente al vectorului: ');
readln(n);
for i:=1 to n do
readln(b[i]);
prod := 1;
for i:=1 to n do
if i mod 2 = 0 then
prod:=prod*b[i];
writeln('Produsul elementelor pare este: ',prod);
readln;
end.
Explicație:
