Код:
CLS
n = 4
b = INT(RND * 50)
DIM y(n * n)
PRINT "Matrix A"
FOR j = 0 TO n - 1
FOR i = 0 TO n - 1
a(j, i) = INT(RND * 99) + 1
IF a(j, i) > b THEN y(cnt) = a(j, i): cnt = cnt + 1
PRINT USING "###"; a(j, i);
NEXT i
PRINT
FOR k = j + 1 TO n - 1
s = s + a(j, k)
NEXT k
NEXT j
PRINT "S="; s
PRINT "B="; b
PRINT "Sorted matrix A"
FOR i = 0 TO n - 1
FOR j = 0 TO n - 1
FOR k = j + 1 TO n - 1
IF a(j, i) > a(k, i) THEN SWAP a(k, i), a(j, i)
NEXT k
NEXT j
NEXT i
FOR j = 0 TO n - 1
FOR i = 0 TO n - 1
PRINT USING "###"; a(j, i);
NEXT i
PRINT
NEXT j
PRINT "Y array:";
FOR i = 0 TO n * n - 1
IF y(i) > 0 THEN PRINT y(i); " ";
NEXT i
... прям как в детство вернулся в школу №41.
Интересно, сколько еще сотен лет в школах этот убогий язык будут учить?