Имеется массив а из n произвольных чисел среди которых есть положительные, отрицательные и равные нулю. найти сумму элементов предшествующих минимальному

Question

Информатика: Имеется массив а из n произвольных чисел среди которых есть положительные, отрицательные и равные нулю. найти сумму элементов предшествующих минимальному числу. так если а={3,4,9,2,11,-12,3} результат 3+4+9+2=18

nik19991 · Answer

Function func32589781(a As Range) As Double Dim r As Range, s As Double For Each r In a If Fix((1 - Sgn(r)) / 2) Then: Exit For s = s + r Next func32589781 = s End FunctionExcel VBA...

Популярные вопросы