1 2 3 4 5 6 7 8 9 10 11 12 | DEFINT A-Z n = 10 DIM A(n, n) ' A( номер столбца , номер строки ) CLS FOR iy = 1 TO n: FOR ix = 1 TO n ' Не включая диагональ IF n - iy + 1 < ix THEN COLOR 10 ELSE COLOR 7 ' Включая диагональ (откомментироать если надо) ' IF n - iy < ix THEN COLOR 10 ELSE COLOR 7 A(ix, iy) = RND * 10 PRINT A(ix, iy); NEXT: PRINT : NEXT |
Тестирование выполнено в программе QB64 ( Скачать )