Найти произведения расположенные до минимального элемента - VB
Формулировка задачи:
Помогите с лабораторкой:
Ввести одномерные массивы x = {-6, 0.5, 0.12, 13, -10.1} и y = {13, 2.1, 14, 6, -2}. Создать одномерный массив r( ) такой, что элементы с нечетными номерами являются элементами массива x, с четными номерами - массива y.
Вывести массив r. В новом массиве r найти произведение элементов, расположенных до минимального элемента.
Решение задачи: «Найти произведения расположенные до минимального элемента»
textual
Листинг программы
Option Base 1 Sub bb() Dim x(), y(), i, im, min x = Array(-6, 0.5, 0.12, 13, -10.1) y = Array(13, 2.1, 14, 6, -2) 'формирование массива ReDim r(1 To UBound(x) * 2) For i = 1 To UBound(x) r(2 * i - 1) = x(i) r(2 * i) = y(i) Next 'вывод массива For i = 1 To UBound(r) Debug.Print r(i); Next Debug.Print 'поиск мин. эл-та min = r(1) For i = 2 To UBound(r) If r(i) < min Then min = r(i): im = i Next 'произведение элементов, расположенных до минимального элемента If im < 2 Then Debug.Print "мин. эл-т - первый, произведение определить нельзя" Else min = r(1) For i = 2 To im - 1 min = min * r(i) Next Debug.Print "мин. эл-т " & im & "-й, произведение "; min End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д