Предмет: Информатика,
автор: KPolinka
вычислите произведение всех целых чисел, расположенных за минимальным значением.
нужна программа для open office
как объяснила мне препод: вводишь произвольное количество чисел(допустим 6 чисел), с помощью формулы "min" вычислить минимальное... и нужно перемножить все числа расположенные после этого минимального числа)
например: 2 3 0 6 7 8 min=0
и нужно по какой-то функции перемножить числа 6 7 8
и если 0 поставить в другое место, числа после 0 все также перемножались)
Ответы
Автор ответа:
0
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
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
я искала, там нет такого:D
Автор ответа:
0
Здесь ответ уже закрылся. Ну у тебя вопросов много, сейчас попробую в каком-нибудь другом ответить))
Похожие вопросы
Предмет: Информатика,
автор: lizataska
Предмет: Право,
автор: kkk130ika
Предмет: Қазақ тiлi,
автор: lro2009pro
Предмет: Математика,
автор: катиш29
Предмет: Физика,
автор: Shrek12