Как поменять местами минимальный и максимальный элемент в каждой строке матрицы - VB

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

Дана матрица размера M x N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке. Помогите записать в Visual Basic

Решение задачи: «Как поменять местами минимальный и максимальный элемент в каждой строке матрицы»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim i As Double
Dim j As Double
Dim max As Double
Dim min As Double
Dim n As Integer
Dim m As Integer
Dim a() As Double
Dim j_max, j_min As Integer
Cls
m = 5 'Г·ГЁГ±Г«Г® Г±Г«Г®ГЎГ¶Г®Гў
n = 5 'Г·ГЁГ±Г«Г® Г±ГІГ°Г®ГЄ
ReDim a(1 To n, 1 To m)
ReDim b(1 To n, 1 To m)
    For i = 1 To n
        For j = 1 To m
        a(i, j) = Int(Rnd * 18 - 1)
        b(i, j) = a(i, j)
        Print a(i, j); vbTab;
        Next
        Print
    Next
'''''''''''''''''''''''''''''''''''''''''
    For i = 1 To n
    max = a(i, 1)
    min = a(i, 1)
    j_max = 1
    j_min = 1
        For j = 1 To m
            If a(i, j) > max Then
                max = a(i, j)
                j_max = j
            End If
            If a(i, j) < min Then
                min = a(i, j)
                j_min = j
            End If
        Next
        a(i, j_max) = min
        a(i, j_min) = max
Print
    Next
    
    For i = 1 To n
        For j = 1 To m
        Print a(i, j); vbTab;
        Next
        Print
    Next
End Sub
                        

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

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

Похожие ответы