Создать массив. вычислить произведение элементов с нечетными индексами. элементы массива- случайные целые числа из отрезка [-10: 10].

Const n=5;
var a:array [1..n] of integer;
i,p:integer;
begin
for i:= 1 to n do
a[i]:= Random(-10,10);
writeln('Массив: ',a);
p:=1;for i:=1 to n do
if i mod 2 <> 0 then p:=p*a[i];
writeln('Произведение элементов с нечётными индексами равно: ',p);
readln
end.

Вот и код на паскале :)
program nechotnie;    const size=1000;//максимальное количество елементов масcива     var a:array[1..size] of longint;       i,n,neparni:longint;begin   readln(n); //вводим количество елементов в массиве   neparni:=1; //для вычисление произведение елементов масива надо всегда брать начальное значение 1 а если надо суму то 0   for i:=1 to n do      begin         a[i]:=random(-10,10); //заполняем масив случайными числами         if i mod 2<>0 then neparni:=neparni*a[i]; // если индекс i непарный,то умножаем значение для вычислений на етот елемент      end;   writeln(neparni); //вывод произведенияend.