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