Question

Дан целочисленный массив размером 20 элементов. найти произведение чисел больше 7. ​

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(20, -1000, 1000);

 a.Println;

 a.Where(p -> p > 7)

     .Aggregate(BigInteger.One, (p, q) -> p * q)

     .Print

end.

Answer 2

Для нахождения произведения чисел больше 7 в целочисленном массиве размером 20 элементов, необходимо пройтись по всем элементам массива, проверить, является ли число больше 7, и если да, умножить его на результат текущего произведения.

Вот пример кода на языке Python, который решает данную задачу:

pythonCopy code
def find_product_of_numbers_greater_than_seven(arr):
    product = 1

    for num in arr:
        if num > 7:
            product *= num

    return product

# Пример использования функции
array = [4, 8, 2, 10, 5, 12, 3, 9, 6, 15, 11, 7, 14, 1, 13, 20, 16, 17, 19, 18]
result = find_product_of_numbers_greater_than_seven(array)
print("Произведение чисел больше 7:", result)

Здесь мы проходимся по каждому числу в массиве arr, и если число больше 7, то оно умножается на текущее значение переменной product, которая изначально равна 1. В итоге, после прохода по всем элементам массива, в переменной product будет храниться произведение всех чисел больше 7.