Question

Написать программу по Паскалю.Дан одномерный массив из 7 элементов, заполненный случайным числом в интервале от 1 до 99. Напишите программу, которая находит произведение всех нечетных элементов массива. Значения элементов вывести в строку через пробел.

Answer 1

## ArrRandom(7, 1, 99).Println.Where(t -> t.IsOdd).Product.Print

Answer 2

Вот пример программы на языке Паскаль, которая находит произведение всех нечетных элементов одномерного массива из 7 элементов, заполненного случайными числами в интервале от 1 до 99:

program MultiplyOddElements;

var
  arr: array[1..7] of integer;
  i: integer;
  product: integer;

begin
  // Заполняем массив случайными числами
  randomize;
  for i := 1 to 7 do
  begin
    arr[i] := random(99) + 1;
  end;

// Выводим значения элементов массива
  for i := 1 to 7 do
  begin
    write(arr[i], ' ');
  end;
  writeln;

// Находим произведение нечетных элементов массива
  product := 1;
  for i := 1 to 7 do
  begin
    if arr[i] mod 2 = 1 then
    begin
      product := product * arr[i];
    end;
  end;

// Выводим произведение
  writeln('Произведение нечетных элементов массива: ', product);
end.

В этой программе мы используем циклы для заполнения массива случайными числами и для нахождения произведения нечетных элементов. Мы также выводим значения элементов массива и произведение в консоль.

Примечание: В программе используется функция `randomize`, которая инициализирует генератор случайных чисел. Она не является стандартной функцией в языке Паскаль, поэтому возможно, что в вашей среде разработки она может отсутствовать. Если это так, вам может потребоваться использовать другой способ генерации случайных чисел.

Надеюсь, это поможет вам написать программу на Паскале, которая находит произведение всех нечетных элементов массива. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!