Нахождение минимального и максимального значения в массиве - VB

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

Уважаемые программисты помогите мне пожалуйста написать программку вот: дана матрица 4 на 4 вещественного типа.Найти во сколько раз максимальный элемент больше минимального. заранее большое спасибо!

Код к задаче: «Нахождение минимального и максимального значения в массиве - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ