В прямоугольной матрице найти сумму элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу - VB
Формулировка задачи:
в прямоугольной матрице найти сумму элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу.
Решение задачи: «В прямоугольной матрице найти сумму элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу»
textual
Листинг программы
Private Sub Command1_Click() Dim A() As Integer, i As Integer, j As Integer Dim sum As Double, m As Integer, n As Integer Cls Randomize n = InputBox("Введите число строк", , 8) m = InputBox("Введите число столбцов", , 10) ReDim A(1 To n, 1 To m) For i = 1 To n For j = 1 To m A(i, j) = Int(21 * Rnd - 10) ' Заполнение массива случ числами от -10 до 10 Print A(i, j); vbTab; Next Print Next sum = 0 For j = 1 To m sum = sum + A(1, j) Next j Print "Сумма элементов первой строки равна " & sum sum = 0 For j = 1 To m sum = sum + A(n, j) Next j Print "Сумма элементов последней строки равна " & sum sum = 0 For i = 1 To n sum = sum + A(i, 1) Next i Print "Сумма элементов первого столбца равна " & sum sum = 0 For i = 1 To n sum = sum + A(i, m) Next i Print "Сумма элементов последнего столбца равна " & sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д