Как определить сумму элементов матрицы в тех столбцах, которые не содержат отрицательных элементов - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы