Напечатать индексы и определить количество элементов одномерного массива / Visual Basic - VB

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

Напечатать индексы и определить количество элементов одномерного массива G размерности n, значения которых по модулю не превышают значения наибольшего элемента одномерного массива V той же размерности. Для отладки программы контрольный пример подготовить самостоятельно. Помогите пожалуйста написать мат.модель и схему алгоритма!!!

Решение задачи: «Напечатать индексы и определить количество элементов одномерного массива / Visual Basic»

textual
                            Листинг программы 
                        
 
                            
                        
Sub Main()
    Dim n As Integer, m As Integer, i As Integer, max As Integer, imax As Integer
    n = InputBox("Введите размер массива", "Ввод данных", 17)
    ReDim G(1 To n) As Integer, V(1 To n) As Integer
    Randomize: AutoRedraw = True
    Cls
    For i = 1 To n
            G(i) = Int(Rnd * 40 - 18)
            V(i) = Int(Rnd * 20 - 9)
            If i = 1 Then
                max = V(1): imax = 1
            Else
                If max < V(i) Then max = V(i): imax = i
            End If
    Next i
    Print "Mассив G:"
    For i = 1 To n
            Print G(i) & vbTab;
    Next i
    Print
    Print "Mассив V:"
    For i = 1 To n
            Print V(i) & vbTab;
    Next i
    Print
    Print "Максимальный элемент массива    V (" & imax & ") = " & max
    Print
    Print "Индексы элементов массива G, значения которых по модулю не превышают значения наибольшего элемента массива V"
    For i = 1 To n
           If Abs(G(i)) <= max Then
                Print i & vbTab;
                m = m + 1
           End If
    Next i
    Print
    Print "Kоличество элементов массива G, значения которых по модулю не превышают значения наибольшего элемента массива V" & vbCrLf & m
 
End Sub