Запар по QBasic

[intelcorei5]

Друзья, выручите пожалуйста! Нужно решить задачи в QBasic
Я знаю, что я нуб в этой области познаний, но сдать их нужно

1)Ввести матрицу А размером 4х4
2)Найти S-сумму элементов, расположенных над главной диогональю матрицы А
3)Оброзовать одноменрый массив Y из элементовматрицы A , которые больше числа B
4) Упорядочить элементы каждого столбца матрицы А в порядке возрастания
5)Вывести на печать: исходящую матрицу А, S, массив Y, матрицу А после сортировки.

часть я уже сделал, а вот как дальше не знаю

CLS
REM 1
DIM A(4, 4)
FOR I = 1 TO 4
FOR J = 1 TO 4
A(I, J) = INT(RND * 100)
NEXT J
NEXT I
PRINT "MASSIV A"
FOR I = 1 TO 4
FOR J = 1 TO 4
PRINT A(I, J);
NEXT J
PRINT
NEXT I

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[intelcorei5]

помогите пожалуйста, очень нужна ваша помощ!!

[Serge_Bliznykov]

2-я

REM 2
S = 0
FOR I = 1 TO 4
FOR J = 1 TO 4
IF J>I THEN S = S + A(I, J)
NEXT J
NEXT I

или так лучше - выбирайте вариант, какой Вам ближе/понятнее

REM 2
S = 0
FOR I = 1 TO 4-1
FOR J = I+1 TO 4
S = S + A(I, J)
NEXT J
NEXT I

[intelcorei5]

Сообщение от Serge_Bliznykov

2-я

REM 2
S = 0
FOR I = 1 TO 4
FOR J = 1 TO 4
IF J>I THEN S = S + A(I, J)
NEXT J
NEXT I

или так лучше - выбирайте вариант, какой Вам ближе/понятнее

REM 2
S = 0
FOR I = 1 TO 4-1
FOR J = I+1 TO 4
S = S + A(I, J)
NEXT J
NEXT I

Спасибо)) это я как понял только S сумма элементов найдена, а дальше какие действия следует делать??

[intelcorei5]

Сообщение от intelcorei5

Спасибо)) это я как понял только S сумма элементов найдена, а дальше какие действия следует делать??

что то из третьего наворганил, но сомневаюсь в правильности

REM 3
DIM Y(16)
K = 0
INPUT B
FOR I = 1 TO 4
FOR J = 1 TO 4
IF A(I, J) > B THEN
END IF
NEXT J
PRINT "B"

[intelcorei5]

NEED HELP
тема ап

[intelcorei5]

пожалуйста!