Нахождение минимального и максимального значения в массиве - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы