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

[Raido]

-Задать массив A(N,M) построчно
-Преобразовать А(N,M) в B(N,M), отсортировав элементы по возрастанию при чтении по строкам.
-добавить оодин столбец в массив В(), члены которого являлись бы средними значениями элементов каждой строки;
-определить число К первых элементов массива А() по строкам сумма, которых больше заданной величины L;
-вывести числа К и отсортированного массива В() по строкам

Помогите пожалуйста!

[Abbatik]

input n,m
input "k=";k
dim a(n,m),b(n,m+1)
'zadanie massiva
s=0
for i=1 to n
s=0
for j=1 to m
input "a(",i,",",j,")=";a(i,j)
s=s+a(i,j)
b(i,j)=a(i,j)
next j
'zapis v pervii stolbec sr. arifm-go
b(i,1)=s/n
's4et4ik k
if s>l then k=k+1
next i
for i=1 to n 
for j=2 to m
for k=j+1 to m+1
'sortirovka
if b(i,j)>b(i,k) then swap(b(i,j),b(i,k))
next k
next j
next i

print "k=";k
for i=1 to n
for j=1 to m+1
print b(i,j);
next j
print
next i
end

[Raido]

Спасибо огромное!

[conqueror]

Помогите решить задачку:

В матрице n x m найти сумму элементов 5-го столбца, min элемент матрицы, построить вектор из положительных элементов матрицы.

[conqueror]

Кто-нибудь может помочь?

[Abbatik]

input n,m
DIM a(n,m)
DIM b(n*m)
min=1000
k=0
s=0
FOR i=1 TO n
For j=1 TO m
 a(i,j)=50-int(rnd(1)*100)
 print a(i,j);
 if a(i,j)<min then min=a(i,j)
 if a(i,j)>0 then k=k+1:b(k)=a(i,j)
 if i=5 then s=s+a(i,j)
next j
print
next i
print "RESULTS---->"
for i=1 to k
print b(i);
next i
print
Print "Summa=";s
Print "Min. Element=";min
end

[conqueror]

Спасибо, но в в программе ошибка

[Abbatik]

...но в в программе ошибка

я онлайн писал. Ошибки не исключены, но логика правильная....

[AlDelta]

Оин вопрос - одна тема.
conqueror - штраф за флуд.
Тема закрыта.