1 2 3 4 | 13 14 15 1612 11 10 95 6 7 84 3 2 1 |
1 2 3 4 5 6 7 8 9 10 11 12 | INPUT "vvedite razmer massiva ", nDIM a(n, n)FOR i = n TO 1 STEP -1 IF i MOD 2 = n MOD 2 THEN FOR j = n TO 1 STEP -1: k = k + 1: a(i, j) = k: NEXT ELSE FOR j = 1 TO n: k = k + 1: a(i, j) = k: NEXTNEXTPRINT "massiv"FOR i = 1 TO n FOR j = 1 TO n PRINT a(i, j); NEXT PRINTNEXT |
Тестирование выполнено в программе QB64 ( Скачать )