Определить количество строк квадратной матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д