Определить в матрице столбец с максимальной суммой и в нем минимальный по величине элемент - VB (170763)
Формулировка задачи:
Здравствуйте! Помогите...к экзамену это надо сделать:
1.Дан двумерный массив размером n*m, заполненный случайными числами. Определить в нем столбец с максимальной суммой и в нем минимальный по величине элемент.
2.Заполнить массив n*n по правилу:
____________
|1|1|1|...|1|
____________
|1|2|2|...|2|
____________
|1|2|3|...|3|
____________
|.|.|.|...|.|
____________
|1|2|3|...|n|
Помогите пожалуйста!... Решение задачи: «Определить в матрице столбец с максимальной суммой и в нем минимальный по величине элемент»
textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Integer, n As Integer, i As Integer, j As Integer
Cls
n = InputBox("n = ", "", 15)
ReDim A(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
If i <= j Then A(i, j) = i Else A(i, j) = j
Print A(i, j); vbTab;
Next j
Print
Print
Next i
End Sub