вычислите произведение всех целых чисел, расположенных за минимальным значением.
10-11 класс
|
нужна программа для open office
как объяснила мне препод: вводишь произвольное количество чисел(допустим 6 чисел), с помощью формулы "min" вычислить минимальное... и нужно перемножить все числа расположенные после этого минимального числа)
например: 2 3 0 6 7 8 min=0
и нужно по какой-то функции перемножить числа 6 7 8
и если 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 & " число")
Комментарий удален
я написала, что для open office... не дублирую...извините, но мне решение нужно...можете просто игнорировать))
Другие вопросы из категории
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
Читайте также
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
вычислить произведение всех элементов.
(A < B). Найти произведение всех целых чисел от A до B
включительно.
всех чисел, расположенных после первого нулевого элемента.
Написать на Паскале буду очень благодарен!!