Заменить значения элементов, расположенных на побочной диагонали, на максимальное значение матрицы

@BJlaD · Регистрация: 21.03.2010

Студворк — интернет-сервис помощи студентам

Разработать информационную технологию позволяющую заменить значени, элементов расположенных на побочной диагонали, на максимальное значение элемента этой же матрицы.Размерностьт произвольная.

Добавлено через 1 минуту

Visual Basic

Private Sub Command1_Click()
Dim n, a(), k As Integer
m = InputBox("ВВедите размерность матрицы")
ReDim a(1 To m, 1 To m)
For i = 1 To m
For j = 1 To m
a(i, j) = InputBox("a(" & i & " , " & j & ")")
Next
Next
Print "исходный массив"
For i = 1 To m
Print
For j = 1 To m
Print a(i, j)
Next
Next
k = a(1, 1)
For i = 1 To m
For j = 1 To m
If a(i, j) >= k Then
k = a(i, j)
End If
Next
k = a(m + 1 - i, i)
Next
Print "значение матрицы A"
For i = 1 To m
Print
For j = 1 To m
Print a(i, j)
Next
Next
End Sub

Добавлено через 27 секунд
Подскажите где ошибка???

@gaw · 28.03.2010, 22:27

Visual Basic

Private Sub Command1_Click()
Dim n, a(), k As Integer
m = InputBox("ВВедите размерность матрицы")
ReDim a(1 To m, 1 To m)
For i = 1 To m
For j = 1 To m
a(i, j) = Int(Rnd * 10) ' InputBox("a(" & i & " , " & j & ")")
Next
Next
Print "исходный массив"
For i = 1 To m
For j = 1 To m
Print Tab(3 * j); a(i, j);
Next
Print ""
Next
Print ""
k = a(1, 1)
For i = 1 To m
For j = 1 To m
If a(i, j) < k Then
k = a(i, j)
End If
Next
Next
For i = 1 To m
a(m + 1 - i, i) = k
Next
Print "min значение матрицы A  "; k
Print ""
Print "преобр. массив"
For i = 1 To m
For j = 1 To m
Print Tab(3 * j); a(i, j);
Next
Print ""
Next
End Sub

Опции темы