var a:array [1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do
begin
write ('Введите ',i:2,' элемент массива и нажмите Enter ');
read (a[i]);
if (i mod 2 = 0) and (a[i] mod 2 = 1) then p:=p*a[i];
end;
writeln;
write ('Массив ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Произведение элементов, индексы которых чётны, а сами элементы нет, равно ',p)
end.
const
nn = 100; // максимальное число элементов
var
a: array[1..nn] of integer;
i, n: integer;
p: real;
begin
write('n = ');
read(n);
writeln('введите элементы массива');
p := 1;
for i := 1 to n do
begin
read(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
p := p * a[i];
end;
writeln('П = ', p);
end.
