Не сложная задача

[maxwel6064]

Всем привет. Нужна ваша помощь в решении задачи на паскале. Вот условие:

Дана n последовательность натуральных 2-значных чисел. Ее нужно расположить таким образом: первые должны быть те числа, которые оканчиваются нулем, затем те, которые заканчиваются единицей и т.д. Например, у нас дано, что n=10; дана последовательность 58,98,24,54,18,28,64,25,26,12. Должен получиться такой результат:
12,24,54,64,25,26,18,28,58,98.

Заранее благодарен за помощь.

[ViktorR]

Предлагается такой алгоритм:
1. Сортируем весь массив по возрастанию единиц - a[i] MOD 10.
2. Сортируем массив по группе членов с одинаковым значением единиц.

1. Сортировка методом выбора:

for i :=1 to n-1 do begin  {просматриваем массив}
   nmin := i;                   
   for j := i+1 to n do       {ищем мин. элем. в оставшейся части массива}
      if ((a[j] mod 10) < (a[nmin] mod 10)) then {единицы найденного числа меньше}
         nmin := j;        {сохраним номер элемента массива}
      buf := a[i];         {переставим элементы массива местами}
      a[i] := a[nmin];
      a[nmin] := buf;
end;

После такой обработки получим массив, упорядоченный по значению единиц.

2. Далее пробуйте сами ...