Дам 50 баллов. Сформировать и вывести ** экран массив, элементы которого заданы датчиком...

Question

Дам 50 баллов. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26]. Найти произведение элементов с нечетными номерами. Количество элементов задается как константа. (вот начало, нужно продолжить) const N=20; var a: array [1..N] of integer; …

Answer 1

Ответ:

const N = 20;

var

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

i : integer;

proizvedenie : integer := 1;

begin

for i := 1 to N do

begin

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

write(a[i], ' ');

if i mod 2 = 1 then

proizvedenie = proizvedenie * a[i];

end;

writeln ('Произведение элементов с нечетными номерами : ', proizvedenie);

end.

Comments

спасибо

Answer 2

const n=20;

var

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

i:integer;

p:int64;

begin

p:=1;

writeln('Элементы массива');

for i:=1 to n do begin

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

write(a[i]:5,' ');

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

end;

writeln;

writeln('Произведение элементов с нечетными индексами》');

write(p)

end.

---