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

@Rammstein · Регистрация: 21.10.2012

Author24 — интернет-сервис помощи студентам

Помогите с лабораторкой:

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

@Казанский · 16.02.2013, 14:24

Visual Basic

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

@Rammstein 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 4
		1
	Найти произведения расположенные до минимального элемента 15.02.2013, 20:06. Показов 706. Ответов 1 Метки нет (Все метки) Помогите с лабораторкой: Ввести одномерные массивы x = {-6, 0.5, 0.12, 13, -10.1} и y = {13, 2.1, 14, 6, -2}. Создать одномерный массив r( ) такой, что элементы с нечетными номерами являются элементами массива x, с четными номерами - массива y. Вывести массив r. В новом массиве r найти произведение элементов, расположенных до минимального элемента. 0

	16.02.2013, 14:24