1 2 3 4 5 6 7 8 9 10 11 12 13 14 | DEFINT A-Zn = RND * 6 + 5m = RND * 6 + 5' откомментировать для ввода с клавиатуры'INPUT "Stolbci:", n'INPUT "Stroki:", m CLS DIM M(m,n) FOR iy = 1 TO m: FOR ix = 1 TO n M(ix, iy) = RND * 51 + 50 NEXT: NEXT FOR iy = 1 TO m: FOR ix = 1 TO n PRINT M(ix, iy); NEXT: PRINT : NEXT |
Тестирование выполнено в программе QB64 ( Скачать )