Двумерный массив

[Xanoder]

Двумерный массив

Привет всем)))может кто нить помочь найти ошибку в программе Qbasic:tehnari_ru_281:?!?!?!очень надо!!:tehnari_ru_121:
Текст задачи: В двумерном массиве перед последней строкой вставить строку с положительной суммой элементов. если таких строк будет несколко, то можно было бы выбрать любую из них.

cls
input "stroki"; x
input "stolbiki";y
dim a(x,y)
randomize timer
for i=1 to x
for j=1 to y
a(x,y)= int(rnd*200-100)+1
print a(x,y);
next j
print
next i

кусок вашего кода
p=0
for i=1 to x
s=0
for j=1 to y
s=s+a(i,j)
next j
if s>=0 then p=i
next i
if p>=0 then
for j=1 to y
a(x+1,j)=a(x,j) [при запуске пррограммы выдаёт ошибку Subskript out of range и ивыделяется эта строка]
a(x-1,j)=a(p,j)
next j
end if

for i=1 to x
for j=1 to y
print a(x,y);
next j
print
next i
end