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

Узнай цену своей работы

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

Дан двумерный массив размером n*m, заполненный случайными числами. Найти в каждой строке массива максимальный и минимальный элементы и поменять их с первым и последним элементом соответственно.
Элементы находит, но вот с выводом что-то туго, никак не могу понять.
Подскажите, пожалуйста, где ошибка. Вывод почти есть, но не совсем то, что требуется.

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

textual
Листинг программы
'Option Explicit
Dim A(1 To 50, 1 To 50) As Double
Private Sub Command1_Click()
Dim n As Integer, m As Integer, i As Integer, j As Integer
Dim temp As Double, it As Integer, jt As Integer
Picture1.Cls ': Picture2.Cls
n = 3 'Val(Text1)
m = 5 'Val(Text2)
For i = 1 To n
     For j = 1 To m
           A(i, j) = Int(Rnd * 100)
           Picture1.Print vbTab; A(i, j);
     Next
     Picture1.Print
Next
    
For i = 1 To n
     temp = A(i, 1): it = i:  jt = 1
     For j = 1 To m
         If A(i, j) > temp Then temp = A(i, j): it = i: jt = j
     Next
     A(it, jt) = A(i, 1): A(i, 1) = temp
Next
 
For i = 1 To n
     temp = A(i, 1): it = i: jt = 1
     For j = 1 To m
         If A(i, j) < temp Then temp = A(i, j): it = i: jt = j
     Next
     A(it, jt) = A(i, m): A(i, m) = temp
Next
 
Picture1.Print vbCrLf
 
For i = 1 To n
     For j = 1 To m
            Picture1.Print vbTab; A(i, j);
     Next
     Picture1.Print
Next
 
End Sub

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


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

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

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