Помогите решить задачу в QBASIC

[Letta]

Помогите решить задачу в QBASIC

Дан одномерный массив. Все элементы, меньшие заданного значения, и их номера записать в новые массивы.

Дана прямоугольная матрица А и заданное значение. Построить новый одномерный массив (вектор) В, где В(i) - число элементов i-ой строки, значения которых меньше заданного значения.

 

[MoNeTa]

По первому
CLS
INPUT "kolichestvo chisel massiva"; n
DIM a, b, c
FOR i = 1 TO n
RANDOMIZE TIMER
a(i) = INT(RND * 10 * RND * 10)
PRINT a(i);
NEXT
PRINT
INPUT "vvedite sravnivoemoe chislo"; z
PRINT "Nomer "; "Znach"
FOR x = 1 TO n
IF a(x) < z THEN s = s + 1 ELSE 10
b(s) = a(x)
c(s) = x
PRINT c(s); " "; b(s)
10 NEXT

 

[MoNeTa]

по второму
CLS
INPUT "stroki"; i
INPUT "stolbci"; m
DIM a(i, m), b(i)
FOR y = 1 TO i
FOR x = 1 TO m
RANDOMIZE TIMER
a(y, x) = INT(RND * 10 * RND * 10)
PRINT a(y, x);
NEXT
PRINT
NEXT
INPUT "vvedite sravnivoemoe chislo"; z
FOR y = 1 TO i
s = 0
FOR x = 1 TO m
IF a(y, x) < z THEN s = s + 1
NEXT
b = s
PRINT "B("; y; ")="; b
NEXT