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

Question

Информатика

Франциска

20 августа, 02:32

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

+2

Ответы (2)

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

Анюта · Answer 1

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

Ярополк · Answer 2

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