1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | INPUT "vvedite razmer matricy N ", nDIM a(n, n)RANDOMIZE TIMERFOR i = 1 TO n FOR j = 1 TO n a(i, j) = INT(RND * 10) NEXTNEXTPRINT "matrica"FOR i = 1 TO n FOR j = 1 TO n PRINT a(i, j); NEXT PRINTNEXTmin = a(1, n)FOR i = 1 TO n IF a(i, n - i + 1) < min THEN min = a(i, n - i + 1)NEXTPRINT "min="; min |
Тестирование выполнено в программе QB64 ( Скачать )