Найти наибольший и наименьший элементы матрицы В - VB

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

Найти наибольший и наименьший элементы матрицы В размерности m*n . Заполнить ими массив С из двух элементов. помогите составить кооод (

Код к задаче: «Найти наибольший и наименьший элементы матрицы В - VB»

textual
Dim B(), C(1 To 2), i, j, m, n, min, max
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
m = InputBox("Введите количество строк ", , 5)
n = InputBox("Введите количество столбцов", , 15)
ReDim B(m, n) ' Размеры массива B -  n-строк, m-столбцов
 
For i = 1 To m
   For j = 1 To n
      B(i, j) = Int(Rnd * 101 - 50) 'Заполняем массив случайными числами
      Print B(i, j); vbTab;       'на печать
   Next j
   Print
Next i
 
C(1) = B(1, 1)
C(2) = B(1, 1)
 
For i = 1 To m
   For j = 1 To n
      If C(1) > B(i, j) Then C(1) = B(i, j)
      If C(2) < B(i, j) Then C(2) = B(i, j)
   Next j
Next i
 
Print
Print "C(1) = " & Str(C(1)) & "   C(2) = " & Str(C(2))
 
 
End Sub
Эта работа вам не подошла?

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

12   голосов, оценка 3.583 из 5


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