сформировать и вывести на экран массив элементы которого заданы датчиком случайных чисел на интервале от -19 до 26 найти произведение элементов с нечетными номерами

Ответ:

program z1;

var i:integer;

p:real;

a:array [1..10] of integer;

begin

randomize;

p:=1;

for i:=1 to 10 do

begin

a[i]:=random(46)-19;

write(a[i],'  ');

if i mod 2 <> 0 then p:=p*a[i]

end;

writeln;

write (p)  

end.

Объяснение:

Начальное значение переменной для произведения равно 1

Цикл:

задаем значение элемента

выводим его на экран

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

Выводим значение произведения на экран