Question

Найти сумму нечётных элементов масива (4х4) расположеных выше главной диагонали. В БЕСИК написать программу

Answer 1

Dim A(4, 4) As Long

Dim S As Long

Dim I As Long

Dim J As Long

For I = 1 To 3

   For J = I + 1 To 4

       If A(I, J) Mod 2 = 1 Then S = S + A(I, J)

   Next J

Next I