Option Explicit

Const N = 125           'Значение верхней границы массива
Const MinQ = -123.45    'Значение минимального элемента массива
Const MaxQ = 678.9      'Значение максимального элемента массива

Dim i, LMax, LMin, iMax, iMin
ReDim L(N)

Randomize
For i = 0 To N      ' Определение элементов массива случайными числами
    L(i) = (MaxQ - MinQ + 1) * Rnd + MinQ
Next

LMax = L(0)
iMax = 0

LMin = L(0)
iMin = 0

For i = 0 To N      ' Определение минимального и максимального элемента массива и их значений
    If L(i) >= LMax Then
        LMax = L(i)
        iMax = i
    End If
    
    If L(i) < LMin Then
        LMin = L(i)
        iMin = i
    End If
Next

MsgBox "В массиве L (верхняя граница размерности=" + CStr(N) + ")" + vbCrLf + vbCrLf + _
    "элемент " + CStr(iMin) + vbTab + "=" + CStr(LMin) + " (минимальный)" + vbCrLf + _
    "элемент " + CStr(iMax) + vbTab + "=" + CStr(LMax) + " (максимальный)"

Option Explicit

Const N = 1234          'Размерность матрицы
Const MinQ = -1000      'Значение минимального элемента массива
Const MaxQ = 1000       'Значение максимального элемента массива
Const Mult = 9          'Значение кратности

Dim M, i, j, NMult

M = N - 1
ReDim Q(M, M)

Randomize
For i = 0 To M      ' Определение элементов массива случайными числами
    For j = 0 To M
        Q(i, j) = Int((MaxQ - MinQ + 1) * Rnd + MinQ)
    Next
Next

NMult = 0
For i = 0 To M - 1    ' Подсчет кол-ва элементов матрицы кратных заданному значению выше главной диоганали
    For j = i + 1 To M
        If Q(i, j) Mod Mult = 0 Then NMult = NMult + 1
    Next
Next

MsgBox "В квадратной матрице порядка" + vbTab + CStr(N) + vbCrLf + _
    "количество элементов кратных" + vbTab + CStr(Mult) + vbCrLf + _
    "расположенных выше главной диагонали=" + vbTab + CStr(NMult)