Дан целочисленный массив из 10 элементов.Написать программу ,находящую сумму элементов...

Question

Дан целочисленный массив из 10 элементов.Написать программу ,находящую сумму элементов массива кратных 3 или 5?

Answer 1

Dim i As Integer 
Dim Massiv() As Integer
Dim Summ As Integer

For i =0 To  Massiv.Length - 1
      If  Massiv(i) Mod 2 = 0 Or  Massiv(i)  Mod 3 = 0 Then Summ +=  Massiv(i)       
  Next
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
 MsgBox(Summ)