Найти наименьший элемент каждой строки матрицы и заменить его нулем - VB
Формулировка задачи:
Здравствуйте! Пожалуйста помогите найти ошибку
Дана действительная квадратная матрица. найти наименьший элемент каждой строки матрицы и заменить его нулем. Вывести на форме исходную и новые матрицы.
Решение задачи: «Найти наименьший элемент каждой строки матрицы и заменить его нулем»
textual
Листинг программы
Private Sub Form_Load() Dim a(1 To 4, 1 To 4) As Integer, Min As Integer, minIndex As Integer Dim i As Integer Dim j As Integer Show For i = 1 To 4 For j = 1 To 4 a(i, j) = 10 * Rnd - 2 Picture1.Print a(i, j); Next j Picture1.Print Next i For i = 1 To 4 Min = a(i, 1) minIndex = 1 For j = 1 To 4 If a(i, j) < Min Then Min = a(i, j): minIndex = j Next j a(i, minIndex) = 0 Print "Min", Min Next i Print For i = 1 To 4 For j = 1 To 4 Picture2.Print a(i, j); Next j Picture2.Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д