- Написать процедуру MoveMinToBeginning(var l : PListItem), которая находит в списке минимальный элемент и перемещает его на первое место
- нужно переместить сам элемент списка, просто переприсвоить значение поля Data нельзя
- С помощью MoveMinToBeginning реализовать процедуру сортировки списка по убыванию
|
|