Массивы: Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца. - VB

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

Всем привет! помогите решить задачку плиз Ввести массив A(N, N). Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца. Одномерные я сам могу решить а с матрицами проблема.

Код к задаче: «Массивы: Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца. - VB»

textual
CLS
INPUT "Количество строк и столбцов -", N
DIM A(N, N) 'Резервирование памяти для массива
FOR i = 1 ТО N 'Ввод массива
FOR j = 1 ТО N
PRINT "А("; i ;",";j ;")=";
INPUT A( i, j)
NEXT j
NEXT i
CLS
PRINT "Матрица А"
FOR i = 1 TO N 'Вывод массива по строкам
FOR j = 1 TO N
PRINT A( i , j)
NEXT j
PRINT
NEXT i
PRINT
S  =  0  'Вычисление  суммы  элементов, лежащих  ниже  главной  диагонали
FOR i = 2 ТО N
FOR j = 1 ТО i - 1
S1 =  S1 + A(i,  j)
NEXT j
NEXT i
S2 = 0 ‘Вычисление суммы элементов, лежащих выше главной диагонали
FOR i = 1 ТО N- 1
FOR j = i +1 TO N
S2 = S2  + A(i,  j)
NEXT j
NEXT i
PRINT "Сумма элементов, лежащих ниже главной
  диагонали равна"; S1
PRINT "Сумма  элементов, лежащих выше
главной диагонали равна"; S2
END

9   голосов, оценка 3.556 из 5


СОХРАНИТЬ ССЫЛКУ