qbasic матрицы

Ответ от Krab Bark[гуру]
CONST n = 5: DIM y(n, n) AS INTEGER: RANDOMIZE TIMER: CLS
FOR i = 1 TO n: FOR j = 1 TO n: y(i, j) = FIX(RND * 15 - 15): NEXT: NEXT
FOR i=1 TO n: FOR j = 1 TO n: PRINT USING "####"; y(i, j); : NEXT: PRINT : NEXT: PRINT
FOR i=1 TO n: k = k - y(i, 3): NEXT: PRINT "sum3="; k
FOR i=1 TO n: FOR j = 1 TO n: m = m - (y(i, j) = 0): NEXT: NEXT: PRINT "m="; : PRINT
my(1,1)=200: FOR i=1 TO n: FOR j=1 TO n: PRINT USING "####";y(i, j);: NEXT: PRINT: NEXT
P.S. Сначала написал n=25, потом сообразил, что ваш учитель имел в виду матрицу 5х5.
Krab Bark
(190165)
Да, я уже подправил 25 на 5. Не обратил сначала внимания, обычно никто не задает матрицу количеством ее элементов, пишут квадратная матрица порядка 5 или матрица 5х5.
И добавил две команды PRINT для улучшения вида картинки на экране, так как матрицы 5х5 в окошке размещаются с запасом.