Массив: Найти максимальный элемент, находящийся на главной диагонали - 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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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