Нахождение минимального и максимального значения в массиве - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д