вычислите произведение всех целых чисел, расположенных за минимальным значением. нужна программа для open office как объяснила мне препод: вводишь произвольное количество чисел(допустим 6 чисел), с помощью формулы "min" вычислить минимальное... и нужно перемножить все числа расположенные после этого минимального числа) например: 2 3 0 6 7 8 min=0 и нужно по какой-то функции перемножить числа 6 7 8 и если 0 поставить в другое место, числа после 0 все также перемножались)
Я уже писал - Джон Уокенбах, Excel 2010, работа с функциями массивов и через замороченный АДРЕС(), но будет ли оно в OpenOffce работать... огромный вопрос.
Sub Maindim n as integerdim k as integerdim p as integerdim min as integerdim s as stringn=inputbox("Сколько будет чисел?")dim a(n)for i=1 to n a(i)=inputbox(i & " число") s=s & a(i) & "; "next imin=a(1)k=1for i=2 to n if a(i)<min then min=a(i) k=i end ifnext ip=a(k+1)for i=k+2 to n p=p*a(i)next is=s & "p=" & pmsgbox(s)End Sub