Question

Ребят, срочно помогите!!!!!!!!!!!!!!!!! дан массив из n чисел. найти произведение тех чисел которые кратны 2 или 5​

Answer 1

program raf105;

const

 n = 10; //Размер массива

var

 a:array[1..n] of integer;

 i,pro: integer;

begin

 pro:= 1;

 writeln('Вводите ',n,' чисел по очереди');

 for i:=1 to n do

 begin

   readln(a[i]);

   if (a[i] mod 2 = 0) or (a[i] mod 5 = 0)

     then pro:= pro*a[i];

 end;

 writeln('Произведение чисел кратных двум или пяти: ',pro);

end.

PascalABC 3.4.2

Answer 2

Конечно, я помогу вам написать код для нахождения произведения чисел в массиве, которые кратны 2 или 5. Для этого вам потребуется пройти по всем элементам массива и проверить каждое число на кратность 2 или 5. Затем умножить все найденные числа. Вот пример кода на языке Python:

pythonCopy code
def find_product_of_multiples(numbers):
    product = 1
    for num in numbers:
        if num % 2 == 0 or num % 5 == 0:
            product *= num
    return product

# Пример использования функции:
n = int(input("Введите размер массива: "))
array = []

for i in range(n):
    num = int(input(f"Введите число {i + 1}: "))
    array.append(num)

result = find_product_of_multiples(array)
print(f"Произведение чисел, кратных 2 или 5, равно: {result}")

Вы можете ввести размер массива n и элементы массива, и программа выведет произведение чисел, которые кратны 2 или 5.