Вычисление суммы элементов матрицы, кратных четырем - 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

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


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

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

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