Напечатать индексы элементов вектора М размерности k - VB
Формулировка задачи:
Напечатать индексы элементов вектора М размерности k, значения которых равны наименьшему элементу вектора L размерности n.
Помогите, пожалуйста, написать программу..
Решение задачи: «Напечатать индексы элементов вектора М размерности k»
textual
Листинг программы
Sub Arina011() Dim M(), L(), i&, j&, n%, k%, Min%, a% Cells.Clear '-------------------- ActiveSheet.UsedRange.EntireRow.Delete 'вводим данные k = Int(InputBox("Введите размерность вектора M", "Ввод данных", 10)) n = Int(InputBox("Введите размерность ветора L", "Ввод данных", 6)) 'наполняем массив случайными числами от 1 до 20 Randomize ReDim M(1 To k) Randomize For i = 1 To k Cells(2, i) = Int(Round(22 * Rnd + (-5))) Next ReDim L(1 To n) Randomize For j = 1 To n Cells(8, j) = Int(Round(22 * Rnd + (-5))) Next Cells(8, 1) = Min For j = 1 To n If Cells(8, j) <= Cells(8, 1) Then Min = Cells(8, j) Next a = 0 For i = 1 To k If Cells(2, i) = Min Then a = i End If Next Cells(1, 4) = "Ниже элементы вектора M" Cells(3, 1) = " Индекс эл-та вектора M равного минимуму вектора L = " Cells(3, 7).Value = a Cells(3, 8) = " Нуль означает: совпадений нет!" Cells(7, 4) = "Ниже элементы вектора L" Cells(9, 5).Value = Min Cells(9, 1) = " Минимальное значение вектора L = " End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д