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

Ответы 6

  • С такими способностями и не можешь сама сделать?))
    • Автор:

      blossom
    • 4 года назад
    • 0
  • я искала, там нет такого:D
  • Я уже писал - Джон Уокенбах, Excel 2010, работа с функциями массивов и через замороченный АДРЕС(), но будет ли оно в OpenOffce работать... огромный вопрос.
  • Попробую через формулы тогда. Хотя с Бейсиком привычнее. Жди и надейся))
    • Автор:

      briley
    • 4 года назад
    • 0
  • Здесь ответ уже закрылся. Ну у тебя вопросов много, сейчас попробую в каком-нибудь другом ответить))
  • 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
    • Автор:

      adón29
    • 4 года назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years