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

0 голосов
40 просмотров

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


Информатика (14 баллов) | 40 просмотров
Дан 1 ответ
0 голосов

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

(3.7k баллов)