Массивы: Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца. - VB
Формулировка задачи:
Всем привет! помогите решить задачку плиз Ввести массив A(N, N).
Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца.
Одномерные я сам могу решить а с матрицами проблема.
Решение задачи: «Массивы: Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца.»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д