Question

Дан массив а(40). Найдите произведение ненулевых элементов,расположенных до максимального элемента

Answer 1

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

begin

 var a := ArrRandom(40, -99, 99);

 a.Println;

 var i := a.IndexMax;

 a?[:i]

     .Where(p -> p <> 0)

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

     .Print

end.

Answer 2

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

pythonCopy code
a = [0, 2, 3, 0, 5, 6, 0, 4, 8, 0, 1, 9, 0, 7, 0, 10, 12, 0, 15, 0, 20, 0, 18, 0, 14, 0, 16, 0, 11, 0, 13, 0, 17, 0, 19, 0, 25, 0, 23, 0]

# Найдем индекс максимального элемента
max_index = a.index(max(a))

# Вычислим произведение ненулевых элементов до максимального элемента
product = 1
for i in range(max_index):
    if a[i] != 0:
        product *= a[i]

print("Произведение ненулевых элементов до максимального элемента:", product)

В данном примере массив a содержит 40 элементов. Вам нужно заменить значения в массиве a на свои собственные. Результат выполнения кода будет выводиться на экран, и вы получите произведение всех ненулевых элементов до максимального элемента.