Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-70, ±40] (размер произвольный). Найти произведение элементов с четными номерами.

 Найти произведение элементов с четными номерами.

const n=10;var a: array[1..n] of integer;i:integer; p:real;beginrandomize;for i:= 1 to n do begin a[i]:=random(111)-70; write(a[i]:4); end;writeln;p:=1;for i:= 1 to n div 2 do p:=p*a[2*i];writeln('p = ',p:8:0);end.Пример: -51 34 -17 11 35 -20 -29 -58 -55 -32p = -13882880