Print 'Собственно сортировка

For i = 10 To 1 Step -1

Amax = A(i)

For j = 1 To i

If A(j) <= Amax Then

Amax = A(j)

imax = j

End If

Next j

Call Exchange(i, imax)

Next i

Call Print_Mas

End Sub

6. Проверьте правильность работы проекта.

7. Сохраните проект под именем Лр10_Зад11 _Фамилия

ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)

ЗАВДАННЯ 10.12. Ilостановка задачи: ВЫПОЛНИТЬ ПРОЕКТ, В КОТОРОМ ПРОВЕСТИ СОРТИРОВКУ ЭЛЕМЕНТОВ ОДНОМЕРНОГО МАССИВА СООТВЕТСТВЕННО ВАРИАНТУ.

ВЫПОЛНИТЬ ЗАДАНИЕ ЛР 9А

ЗАВДАННЯ НА ПРАКТИЧНУ РОБОТУ(ВС,ЛС)

ЗАВДАННЯ 10.13. Постановка задачи: ВЫПОЛНИТЬ ПРОЕКТ, В КОТОРОМ:

ü ДЛЯ РАЗНЫХ НАИМЕНОВАНИЙ ТОВАРОВ, ВЫБОР КОТОРЫХ ОСУЩЕСТВЛЯЕТСЯ ИЗ СПИСКА, С КЛАВИАТУРЫ ВВОДЯТСЯ ЦЕНЫ;

ü ВЫВОДИТСЯ СПИСОК НАИМЕНОВАНИЙ ТОВАРОВ С СООТВЕТСТВУЮЩИМИ ЦЕНАМИ В НЕСОРТИРОВАННОМ И В СОРТИРОВАННОМ (ПО НАИМЕНОВАНИЮ) ПОРЯДКЕ. Форма выглядит следующим образом (рис. 10.11).

Рис. 10.11