Дан целочисленный массив...

Тема в разделе "Информатика", создана пользователем Fuzzyman, 22 фев 2010.

  1. Fuzzyman

    Fuzzyman New Member

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

    sharman New Member

    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)
     
    sharman, 22 фев 2010
    #2

Поделиться этой страницей

Наша группа