Как определить сумму элементов матрицы в тех столбцах, которые не содержат отрицательных элементов - VB
Формулировка задачи:
Дана целочисленная квадратная матрица. Как определить сумму элементов в тех столбцах, которые не содержат отрицательных элементов??? Минимум среди сумм модулей элемента диагоналей, паралельно побочной диагонали матрицы????
Помогите пожалуйста написать коды к программам!!!
Решение задачи: «Как определить сумму элементов матрицы в тех столбцах, которые не содержат отрицательных элементов»
textual
Листинг программы
Option Explicit Dim B() As Integer, i As Integer, j As Integer, n As Integer Dim sum As Integer, est As Boolean Private Sub Command1_Click() Randomize 'Иницилизация генератора случайных чисел Cls 'Очищаем форму n = InputBox("Vvedite n", , 6) ReDim B(1 To n, 1 To n) ' Размеры массива n-строк, n-столбцов sum=0 Print "Maссив B" For i = 1 To n For j = 1 To n B(i, j) = Int(Rnd * 101 - 20) 'Заполняем массив случайными числами Print B(i, j); vbTab; Next j Print Next i Print For j = 1 To n For i = 1 To n If B(i, j) < 0 Then est = True Next i Print j; est; " "; For i = 1 To n If est = False Then sum = sum + B(i, j) Next i est = False Next j Print Print "Cуммa элементов в столбцах, которые не содержат отрицательных элементов"; sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д