Question

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащихпромежутку [1; 5], и вычисляет произведение нечетных чисел.Сформируем массив случайных чисел на указанномпромежутке. Вычисленное произведение будем помещать впеременную Р. Начальное значение Р:=1.Умножать Р на значение очередного элемента будем толькона тех шагах цикла for,где выполняется условие A[i] mod 2 = 1. (В паскале) даю 90 баллов ​

Answer 1

begin

 //PascalABC.NET v3.5.1

 SeqRandom(7, 1, 5).Where( x -> (x mod 2) <> 0).Product.Print();

end.

Answer 2

Привет! Вот пример программы на языке Pascal, которая выполняет задачу:

program CalculateProduct;

const
  ARRAY_SIZE = 7;
  LOWER_BOUND = 1;
  UPPER_BOUND = 5;

var
  A: array[1..ARRAY_SIZE] of integer;
  i: integer;
  Product: integer;

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

// Заполнение массива случайными числами из заданного диапазона
  for i := 1 to ARRAY_SIZE do
    A[i] := Random(UPPER_BOUND - LOWER_BOUND + 1) + LOWER_BOUND;

// Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to ARRAY_SIZE do
    write(A[i], ' ');
  writeln;

// Вычисление произведения нечетных чисел
  Product := 1;
  for i := 1 to ARRAY_SIZE do
  begin
    if A[i] mod 2 = 1 then
      Product := Product * A[i];
  end;

// Вывод результата
  writeln('Произведение нечетных чисел: ', Product);

readln;
end.

В этой программе используется массив `A`, который заполняется случайными числами в заданном диапазоне. Затем происходит вычисление произведения нечетных чисел из этого массива. Результат выводится на экран. Надеюсь, это поможет! Если у тебя есть какие-либо вопросы или нужна дополнительная информация, дай знать.