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)
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.