Нахождение минимального и максимального значения в массиве - VB
Формулировка задачи:
Уважаемые программисты помогите мне пожалуйста написать программку
вот:
дана матрица 4 на 4 вещественного типа.Найти во сколько раз максимальный элемент больше минимального.
заранее большое спасибо!
Решение задачи: «Нахождение минимального и максимального значения в массиве»
textual
Листинг программы
Option Explicit
Option Base 1
Dim a(4, 4) As Integer
Dim i As Integer
Dim j As Integer
Dim r As Single
Dim max As Integer
Dim min As Integer
Private Sub Command1_Click()
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 201) - 100
Next j
Next i
max = a(1, 1)
min = a(1, 1)
For i = 1 To 4
For j = 1 To 4
If a(i, j) > max Then max = a(i, j)
If a(i, j) < min Then min = a(i, j)
Next j
Next i
r = max \ min
MsgBox ("Максимальное больше минимального элемента в " + Str(Abs(r)) + " раз.")
End Sub