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