ПОМОГИТЕ ПОЖАЛУЙСТА!!!! Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами. Program proisvednechet; Var a: array[1..100] of integer; i, n, p: integer; Begin Write (‘Сколько элементов? ’); Readln (n); P:=1; For i=1 to n do begin a[i]:= Random(46)-19; writeln (a[i],’ ‘); if i mod 2 <> 0 then P=P*a[i]; end; Writeln(‘Произведение элементов с нечетными номерами:’, P); End.

Вопрос школьника по предмету Информатика

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
Сформировать и вывести на экран массив, элементы которого заданы датчиком
случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение
элементов с нечетными номерами.
Program proisvednechet;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write (‘Сколько элементов? ’); Readln (n);
P:=1;
For i=1 to n do
begin
a[i]:= Random(46)-19;
writeln (a[i],’ ‘);
if i mod 2 <> 0 then P=P*a[i];
end;
Writeln(‘Произведение элементов с нечетными номерами:’, P);
End.

Ответ учителя по предмету Информатика

Ответ:

Была такая задача, но только на интервале [-70, ±40]

Объяснение:

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