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.

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.

Answer 3

Конечно, продолжу код для вас:

pascalCopy code
const
  N = 20;
var
  a: array [1..N] of integer;
  i: integer;
  oddProduct: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами на интервале [-19, 26]
  for i := 1 to N do
    a[i] := Random(46) - 19; // Random(46) дает значения от 0 до 45, вычитаем 19 для получения [-19, 26]

  // Вывод массива на экран
  WriteLn('Массив:');
  for i := 1 to N do
    Write(a[i]:4);
  WriteLn;

  // Вычисление произведения элементов с нечетными номерами
  oddProduct := 1;
  for i := 1 to N do
  begin
    if i mod 2 <> 0 then // Проверка на нечетный номер
      oddProduct := oddProduct * a[i];
  end;

  WriteLn('Произведение элементов с нечетными номерами:', oddProduct);
end.

Этот код создает массив a из 20 элементов, заполняет его случайными числами на интервале [-19, 26], выводит массив на экран и затем находит произведение элементов с нечетными номерами.