Question

Вычислите произведение всех целых чисел, расположенных за минимальным значением.нужна программа для open officeкак объяснила мнеВычислите произведение всех целых чисел, расположенных за минимальным значением.
нужна программа для open office
как объяснила мне препод: вводишь произвольное количество чисел(допустим 6 чисел), с помощью формулы "min" вычислить минимальное... и нужно перемножить все числа расположенные после этого минимального числа)
например: 2 3 0 6 7 8 min=0
и нужно по какой-то функции перемножить числа 6 7 8
и если 0 поставить в другое место, числа после 0 все также перемножались)

Answer 1

Sub Main
dim n as integer
dim k as integer
dim p as integer
dim min as integer
dim s as string
n=inputbox("Сколько будет чисел?")
dim a(n)
for i=1 to n
  a(i)=inputbox(i & " число")
  s=s  & a(i) & "; "
next i
min=a(1)
k=1
for i=2 to n
  if a(i)<min then
    min=a(i)
    k=i
    end if
next i
p=a(k+1)
for i=k+2 to n
  p=p*a(i)
next i
s=s & "p=" & p
msgbox(s)
End Sub