Найти наибольший и наименьший элементы матрицы В - VB
Формулировка задачи:
Найти наибольший и наименьший элементы матрицы В размерности
m*n . Заполнить ими массив С из двух элементов.
помогите составить кооод (
Решение задачи: «Найти наибольший и наименьший элементы матрицы В»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д