Сумма элементов массива - VB (60584)

Формулировка задачи:

Дан массив Мas(5,5). Найти сумму нечетных элементов массива, находящихся на главной, выше главной диагонали и на побочной диагонали массива, без элементов последнего столбца. Вывести исходный массив, сумму и элементы этой суммы. Массив: 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 51 52 53 54 55 Вот то что я написал :

Sub zadacha14_7()
Dim mas(5, 5) As Integer
Dim i, j As Integer
 
For i = 1 To 5
For j = 1 To 5
mas(i, j) = InputBox(i, j)
Next j
Next i
 
For i = 1 To 5
For j = 1 To 5
s = s & mas(i, j) & ";"
Next j
s = s & Chr(13)
Next i
 
g = 0
For i = 1 To 4
For j = 1 To 5
If i <= j And mas(i, j) Mod 2 <> 0 Then
g = g + mas(i, j)
End If
Next j
Next i
 
MsgBox s & " " & g
End Sub

Должно в сумме получиться 131, но у меня ни как это число не получается. Помогите!

Решение задачи: «Сумма элементов массива»

textual
                            Листинг программы 
                        

                                   s=0
       for i=1 to 5
           if mas(i,i) mod 2 <> 0 then s=s+mas(i,i)
       next i
                        

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

13 голосов , оценка 4.077 из 5

Похожие ответы