Найти максимальный элемент на побочной диагонали массива - VB

Формулировка задачи:

Доброго времени суток уважаемые форумчане! Прошу у вас помощи в решении задачек. 1. Дан двумерный массив 6x6, найти максимальный элемент среди элементов побочной диагонали массива. Жду...

Код к задаче: «Найти максимальный элемент на побочной диагонали массива - VB»

textual
Option Explicit
'DefInt A-N
Private Sub Command1_Click()
    Dim A() As Double, i As Integer, j As Integer
    Dim n As Integer
    n = InputBox("Введите размер матрицы", , 6)
    ReDim A(1 To n, 1 To n)
    Cls
    Randomize
    For i = 1 To n
          For j = 1 To n
             A(i, j) = Int(Rnd * 10)
             Print A(i, j);
          Next
          Print
     Next
     Print "Максимальный элемент побочной диагонали - " & MaxD(A)
End Sub
 
Function MaxD(A() As Double) As Double
Dim i%, n%
    n = UBound(A)
    MaxD = A(1, n)
    For i% = 1 To n
         If A(i%, n - i% + 1) > MaxD Then MaxD = A(i%, n - i% + 1)
    Next i%
End Function
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ