Question

Pascal ABC Напишите полностью пожалуйста ответ! Найти произведение элементов массива целых чисел, которые кратны 7. Размерность массива – 15. Заполнение массива осуществить случайными числами.

Answer 1

Программа:

Pascal:

var

 arr: array[1..15] of integer;

 proiz, i: integer;

begin

 randomize;

 proiz := 1;

 for i := 1 to 15 do begin

   arr[i] := random(-100, 100);

   

   if arr[i] mod 7 = 0 then

     proiz *= arr[i];

 end;

 writeln(arr, #10, proiz);

end.

Объяснение:

В начале выделяется память под массив из 15 элементов, регистрируются переменные proiz и i. Далее начинается основной код. Переменной proiz присваивается значение 1, чтобы потом бессмысленно не умножать на 0. С помощью цикла for переменная i пробегается по всем целым числам от 1 до 15. Элементу массива с индексом i присваивается рандомное значение от -100 до 100. Если остаток от деления числа на 7 равен нулю (значит число кратно 7), то значение переменной proiz изменяется на элемент массива с индексом i. В конце - вывод массива и произведения элементов.

Результат:

[-21,88,75,64,-1,-49,-93,-43,-44,-63,37,27,-28,91,-33]

165179196

[-73,-6,72,15,-57,-53,-59,-62,-60,-56,-40,50,-99,21,-71]

-1176

Answer 2

Программа:

##

ArrRandom(15, ReadInteger('Нижняя граница:'), ReadInteger('Верхняя граница')).Where(x->x mod 7 = 0).Aggregate(1,(p,x) -> p*x).Print;

Пример работы:

Нижняя граница: 1

Верхняя граница 100

432180

Answer 3

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

Вот полный код для решения этой задачи:

program MultiplyBy7;

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

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to 15 do
  begin
    arr[i] := Random(100); // Генерация случайного числа от 0 до 99
  end;

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

// Вывод результата
  writeln('Произведение элементов массива, кратных 7: ', product);

end.

В этом коде мы используем цикл `for` для заполнения массива `arr` случайными числами от 0 до 99 с помощью функции `Random`. Затем мы используем еще один цикл `for`, чтобы пройти по всем элементам массива и проверить, кратны ли они 7 с помощью оператора деления по модулю (`mod`). Если элемент кратен 7, мы умножаем его на текущее значение переменной `product`. В конце выводим результат с помощью процедуры `writeln`.

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