Найти произведения расположенные до минимального элемента - VB

Формулировка задачи:

Помогите с лабораторкой: Ввести одномерные массивы x = {-6, 0.5, 0.12, 13, -10.1} и y = {13, 2.1, 14, 6, -2}. Создать одномерный массив r( ) такой, что элементы с нечетными номерами являются элементами массива x, с четными номерами - массива y. Вывести массив r. В новом массиве r найти произведение элементов, расположенных до минимального элемента.

Код к задаче: «Найти произведения расположенные до минимального элемента - VB»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы