Массив: Найти максимальный элемент, находящийся на главной диагонали - VB
Формулировка задачи:
задание: в MS Visual Basic 6.0 разработать приложение, которое формирует двумерный целочисленный массив N*M из диапазона чисел (-40,40) и выводит его на просмотр
Для этого массива найти максимальный элемент, находящийся на главной диагонали
Помогите как код программы писать для главной диагонали
Решение задачи: «Массив: Найти максимальный элемент, находящийся на главной диагонали»
textual
Листинг программы
Private Sub Command1_Click() Dim i, sum, n, m, max, max_st, min As Integer Dim a() As Double Cls n = 5 'ñòðîêè m = 5 'ñòîëáöû ReDim a(1 To n, 1 To m) For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd * 100 - 10) Print a(i, j); vbTab; Next Print Next Print "ÝëåìåГ*ГІГ» ГЈГ«Г*ГўГ*îé äèГ*ГЈГ®Г*Г*ëè" max = a(1, 1) For i = 1 To 5 Print a(i, i); If a(i, i) > max Then max = a(i, i) Next Print vbLf Print "ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ ГЈГ«Г*ГўГ*îé äèГ*ГЈГ®Г*Г*ëè"; max End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д