Определить количество строк квадратной матрицы - VB

Узнай цену своей работы

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

Определить количество строк квадратной матрицы,в которых на главной диагонали расположены отрицательные числа.Найти среднее арифметическое элементов,расположенных в этих строках. 2 6 2 L= (3 -3 1) 4 2 -2
напишите пожалуйста код программы

Решение задачи: «Определить количество строк квадратной матрицы»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim n As Integer, k As Integer
    Dim Sum As Integer
    n = 3
    ReDim L(1 To n, 1 To n)
    Randomize
    Cls
    
    For i = 1 To n
          For j = 1 To n
                 L(i, j) = InputBox("L (" & i & "," & j & ") = ", "", Int(20 * Rnd - 10))
                 Print L(i, j) & vbTab;
          Next j
          Print
    Next i
    
    For i = 1 To n
          If L(i, i) < 0 Then
                k = k + 1
                For j = 1 To n
                       Sum = Sum + L(i, j)
                Next j
          End If
    Next i
    Print
    If k = 0 Then
        Print "Строк квадратной матрицы,в которых на главной диагонали расположены отрицательные числа нет."
    Else
        Print "Количество строк квадратной матрицы,в которых на главной диагонали расположены отрицательные числа " & k
        Print "Среднее арифметическое элементов,расположенных в этих строках  " & Sum / (n * k)
    End If
 
End Sub

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


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

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

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