Сортировка массива Несортированный массив: Dim u(i) As Integer (i – число элементов). Надо его отсортировать, а результат занести в массив s(i).

x = u(1) x = u(a) a – номер текущего элемента x – минимальное уже найденное u(a)<x Да Нет РЕЗУЛЬТАТ? Найдено минимальное значение среди всех элементов массива u(1) = 10 u(2) = 3 u(3) = 7 u(4) = 5 For a = 2 to i

x = u(a) a – номер текущего элемента s(i) – сортированный массив x – минимальное уже найденное y – п/п заполняемого s(y) Да Нет РЕЗУЛЬТАТ? а) s(y) = u(a); б) s(y) = a? y = 1 u(1) = 10 u(2) = 3 u(3) = 7 u(4) = 5 s(1) = 3 s(2) = 5 s(3) = 7 s(4) = 10 s(1) = 2 s(2) = 4 s(3) = 3 s(4) = 1 For a=1 to i y = y + 1 u(a)>x s(y) = ? Отсортированные а) значения; б) номера строк массива

Домашнее задание Найти в алгоритме ошибки. Написать правильный алгоритм.