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

[Xanoder]

Очень нужна помощь)))
Текст задачи: В двумерном массиве перед последней строкой вставить строку с положительной суммой элементов.

подскажите как посчитать сумму элементов строки и как их поменять местами, а если таких строк будет несколко, то можно было бы выбрать любую из них.

смог только сделать вывод матрицы на экран с введённым количеством строк и столбцов заполненные случайными числами от -100 до 100((( а дальше ничего в голову не идёт

Заранее буду благодарен за помощь

[Летучий_СкилетиК]

вставить строку с положительной суммой элементов

 
ввод массива А[n][m]
p = 0; 
for i = 1 to n
      s = 0
     for j = 1 to m 
     s = s + a[i][j] 
     next j
if s >= 0 then p = i
next i
if p >=0 then
      for j = 1 to m 
           a[n+1][j] = a[n][j]
           a[n-1][j] = a[p][j]
      next j
end
вавод массива А

я на Бесике сто лет не писал могут быть синтаксические ошибки

[Xanoder]

а что это за квадратные скобки?? у меня бейсик не принимает их, ошибку выводит Expected: end of statement

[Косюра]

они должны быть круглыми, не обижайся)

[Xanoder]

Сообщение от Косюра

они должны быть круглыми, не обижайся)

я и не думал))) я программировании почти ноль, так что я по любому благодарен

[Xanoder]

вообщем вот что получилась)) не работает((

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)
end if

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

end

[Летучий_СкилетиК]

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

next j поставь, а то он у тебя на мести парит))))

[Xanoder]

поставил))
но без изменений(((