Вычислить сумму элементов массива, сумма индексов которых равна 4 - VB
Формулировка задачи:
В двумерном массиве произвольных чисел C(4,4) вычислить сумму элементов, сумма индексов которых равна 4. Ввод элементов массива осуществить с клавиатуры. Исходный и результирующий массив распечатать на форме.
Решение задачи: «Вычислить сумму элементов массива, сумма индексов которых равна 4»
textual
Листинг программы
- Option Explicit
- Dim i As Integer, j As Integer, sum As Integer
- Dim A(1 To 4, 1 To 4) As Integer
- Private Sub Command1_Click()
- Randomize
- For i = 1 To 4
- For j = 1 To 4
- A(i, j) = InputBox("Введите A(" + Str(i) + "," + Str(j) + ")", , Int(100 * Rnd))
- If i + j = 4 Then sum = sum + A(i, j)
- Print A(i, j); vbTab;
- Next
- Next
- Print "Сумма ="; sum
- Command1.Enabled = False
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
