1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | INPUT "vvedite razmer masiva ", nDIM a(n)RANDOMIZE TIMERPRINT "ishodnyj massiv"FOR i = 1 TO na(i) = INT(100 * RND)PRINT a(i);NEXT iPRINTnmin = 1nmax = 1FOR i = 1 TO nIF a(i) > a(nmax) THEN nmax = iIF a(i) < a(nmin) THEN nmin = iNEXTSWAP a(nmin), a(nmax)PRINT "novyj massiv"FOR i = 1 TO nPRINT a(i);NEXT i |
Тестирование выполнено в программе QB64 ( Скачать )