Сумма элементов матрицы, расположенных между первым и последним нулевым элементом - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
