1 2 3 4 5 6 | 1 2 3 .... n-2 n-1 n2 3 4 ... n-1 n 03 4 5 .... n 0 0. . . ... . . .n-1 n 0 .... 0 0 0n 0 0 .... 0 0 0 |
1 2 3 4 5 6 7 8 9 | CLS INPUT "Vvedite poryadok matrici : ", nDIM A(n) AS INTEGER FOR iy = 1 TO n FOR ix = 0 TO n - 1 A(n) = ix + iy: IF A(n) > n THEN A(n) = 0 PRINT A(n); NEXT: PRINT NEXT |
Тестирование выполнено в программе QB64 ( Скачать )