В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
chucklplplplpl
chucklplplplpl
17.01.2020 16:02 •  Информатика

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

Показать ответ
Ответ:
Danyaukos
Danyaukos
01.10.2020 22:59
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота