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

[Oleo]

Здравствуйте уважаемые программеры! Не могли бы Вы проверить мою задачку и помочь дорешать её?
В двумерном массиве Y(N-строк, М-столбцов). Найти сумму элементов в каждой строке и минимальный среди этих сумм.
Что-то у меня мозг совсем отключился в конце...
Вот какое у меня начало:

Код: Выделить всё

[B]INPUT n, m
DIM Y(n,m)
FOR i=1 TO n
FOR j=1 TO m
Y(i,j)=INT(RND(1)*20-10)
PRINT Y(i,j);
NEXT j
PRINT
FOR i=1 TO n
S(i)=0
FOR j=1 TO n
S(i)=S(i)+Y(i,j)[/B]

[Naeel Maqsudov]

Что-то у меня мозг совсем отключился в конце...

похоже, что не в конце, а как раз в самом что ни на есть начале

Код: Выделить всё

INPUT n, m
DIM Y(n,m)
DIM S(n)
PRINT "Исходный массив:"
FOR i=1 TO n
  FOR j=1 TO m
    Y(i,j)=INT(RND(1)*20-10)
    PRINT Y(i,j);" ";
  NEXT j
  PRINT
NEXT

PRINT "Суммы строк:"
FOR i=1 TO n
  S(i)=0
  FOR j=1 TO n
    S(i)=S(i)+Y(i,j)
  NEXT
  PRINT S(i);" ";
NEXT
PRINT

MINS = S(1)
FOR i = 2 TO n
  IF S(i)<MINS THEN MINS = S(i)
NEXT
PRINT "Минимальная сумма:"; MINS

[Oleo]

Может быть, может быть... Я уже совсем намучилась с этим бейсиком :'( Cпасибо Вам большое!!!