Напечатать индексы элементов вектора М размерности 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы