Question

Заполните случайными числами в диапазоне от 0 до 140 массив A [1:10]. Вычислите произведение таких элементов массива, которые кратны 3 или кратны 4. ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Answer 1

// PascalABC.Net

var A: array [1..10] of integer;

i, prod: integer;

begin

   for i := 1 to 10 do

   begin

       A[i] := random(0, 140);

       write(A[i], ' ');

   end;

   writeln();

   

   prod := 1;

   for i := 1 to 10 do

       if (A[i] mod 3 = 0) or (A[i] mod 4 = 0) then

           prod := prod * A[i];

   writeln(prod);

end.

Answer 2

Конечно, я могу помочь вам с этим! Вот пример кода на Python, который заполняет массив случайными числами в диапазоне от 0 до 140, а затем вычисляет произведение элементов, кратных 3 или 4:

pythonCopy code
import random

# Создаем пустой массив
A = []

# Заполняем массив случайными числами
for _ in range(10):
    A.append(random.randint(0, 140))

# Инициализируем переменную для хранения произведения
product = 1

# Вычисляем произведение элементов, кратных 3 или 4
for num in A:
    if num % 3 == 0 or num % 4 == 0:
        product *= num

# Выводим исходный массив и полученное произведение
print("Массив A:", A)
print("Произведение элементов, кратных 3 или 4:", product)

Каждый раз, когда вы запустите этот код, он будет генерировать новый массив случайных чисел и вычислять произведение элементов, кратных 3 или 4.