1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLS ' Чистим экран INPUT "Vvedite n :", nDIM B(n) ' Заводим массив FOR i = 1 TO n ' Вводим элементы PRINT "Vvedite element N"; i; ": "; INPUT "", B(i) NEXT min = B(1): k = 1 ' Из области значений FOR i = 1 TO n ' Ищем минимум и его индекс IF B(i) < min THEN min = B(i): k = i NEXT FOR i = k TO n - 1 ' Сдвигаем массив B(i) = B(i + 1) NEXT FOR i = 1 TO n - 1 ' Выводим результат PRINT B(i); NEXT |
Тестирование выполнено в программе QB64 ( Скачать )