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

Question

Информатика

Франциска

2 июня, 13:36

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

+1

Ответы (2)

Знаете ответ на вопрос?

Ярополк · Answer 1

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

Анюта · Answer 2

Const n=10;

var a: array[1 ... n] of integer;

i:integer; p:real;

begin

randomize;

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 - 32

p = - 13882880