LesyaPETROVA
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору В матрице размером 5х3 поменять местами строку с наибольшим элементом и строку с наименьшим элементом. Dim m(50, 50) As Double Private Sub Command1_Click() Picture2.Cls Picture1.Cls For i = 0 To 3 st = InputBox("Введите строку массива", "Ввод данных") astr = Split(st, " ") For j = 0 To 3 m(i, j) = Val(astr(j)) Picture1.Print m(i, j); Next j astr = "" Picture1.Print Next i End Sub Private Sub Command2_Click() For i = 0 To 3 For j = 0 To 3 If m(i, j) < m(j, i) Then m(i, j) = m(j, i) End If Picture2.Print m(i, j); Next j Picture2.Print Next i End Sub Private Sub Form_Load() Command1.Caption = "ввести массив 5*3" Command2.Caption = "поменять" Label1.Caption = "основная" Label2.Caption = "измененная" End Sub а у меня ваще черт знает что меняет(((((((помогите плиз))) |