Сумма элементов матрицы, расположенных между первым и последним нулевым элементом - VB

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

Сумма элементов массива, расположенных между первым и последним нулевым элементом

sum = 0
    For i = 1 To n
           For j = 1 To m
                     If a(i, j) = 0 Then zfi = i And zfj = j
                     If a(n - i + 1, m - j + 1) = 0 Then zli = n - i + 1 And zlj = m - j + 1
           Next j
    Next i '
    For i = zfi To zli
           For j = zfj To zlj
                     sum = sum + a(i, j)
           Next j
    Next i
    Picture2.Print sum

Помогите пожалуйста. Все время жалуется что нижний индекс вне диапазона

Решение задачи: «Сумма элементов матрицы, расположенных между первым и последним нулевым элементом»

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

                             sum = 0
    For i = 1 To n
           For j = 1 To m
                     If a(i, j) = 0 Then zfi = i: zfj = j:  GoTo LASTZERO
                Next j
    Next i
    
LASTZERO:
    For i = 1 To n
           For j = 1 To m
    If a(n - i + 1, m - j + 1) = 0 Then zli = n - i + 1: zlj = m - j + 1: GoTo summa
                Next j
    Next i
     
summa:
     For i = zfi To zli
     For j = zfj To zlj
                     sum = sum + a(i, j)
           Next j
    Next i
                        

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

11 голосов , оценка 4.182 из 5

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