Question

Пожалуйста, сделайте задание правильно. Напишите программу по задаче:Найти произведение элементов массива, кратных 3 и 9. Размерность массива - случайные числа от 5 до 500. (Язык программирования - Паскаль)​

Answer 1

Ответ:

PascalABC.NET

begin

 var arr := ArrRandom(15, 5,500);

 arr.Where(x -> x mod 3 = 0).Where(x -> x mod 9 = 0).Product.Println;

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, который находит произведение элементов массива, кратных 3 и 9:

pascalCopy code
program MultiplyArrayElements;

const
  MIN_SIZE = 5;
  MAX_SIZE = 500;

var
  arr: array of Integer;
  size, i: Integer;
  product: Integer;

begin
  Randomize;
  size := Random(MAX_SIZE - MIN_SIZE + 1) + MIN_SIZE;

  SetLength(arr, size);

  // Заполняем массив случайными числами
  for i := 0 to size - 1 do
    arr[i] := Random(100); // Используем случайные числа от 0 до 99

  product := 1;

  // Вычисляем произведение элементов, кратных 3 и 9
  for i := 0 to size - 1 do
  begin
    if (arr[i] mod 3 = 0) and (arr[i] mod 9 = 0) then
      product := product * arr[i];
  end;

  // Выводим результат
  writeln('Массив:');
  for i := 0 to size - 1 do
    writeln(arr[i]);

  writeln('Произведение элементов, кратных 3 и 9:', product);

  readln;
end.

Эта программа генерирует случайное число от 5 до 500 для определения размера массива. Затем она заполняет массив случайными числами от 0 до 99. Затем происходит цикл по массиву для вычисления произведения элементов, кратных 3 и 9. Наконец, программа выводит исходный массив и произведение.