1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | CLSRANDOMIZE TIMERINPUT "vvedite n"; nDIM a(n)FOR i = 1 TO n a(i) = FIX(RND * 90 + 10)NEXTFOR i = 1 TO n PRINT a(i);NEXTmin = a(1)FOR i = 1 TO n IF a(i) < min THEN min = a(i): k = iNEXTSWAP a(n), a(k)PRINTFOR i = 1 TO n PRINT a(i);NEXT |
Тестирование выполнено в программе QB64 ( Скачать )