Вычислите произведение всех целых чисел, расположенных за минимальным значением. нужна программа для open office как объяснила мне препод:

Question

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

haydsaaronp014m7 · Answer

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...

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