Сортировка.

[Lodyr]

Подскажите, нашел программу "сортировка обменом с запоминанием места последней перестановки".

program Sort_Obmen3; 
var A:array[1..100] of integer; 
N,i,k,x,m : integer; 
begin
write('количество элементов массива '); 
read(N); 
for i:=1 to n do read(A[i]); 
k:=n-1; {количество пар при первом проходе} 
while k>0 do
begin
m:=0; 
{пока перестановок на этом проходе нет, место равно 0} 
for i:=1 to k do
if A[i]>A[i+1] then
begin
x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x; {меняем элементы местами} 
m:=i; {и запоминаем место перестановки} 
end; 
k:=m-1; {количество пар зависит от места последней перестановки} 
end; 
for i:=1 to n do write(A[i],' '); {упорядоченный массив} 
end.

А мне необходимо создать процедуру сортировки, прочитав элементы из фаила, не по возрастанию элементов, а по возрастанию максимальных цифр в числах:
123 3234 23524 99 4
то есть 3 4 5 9 4
необходимо записать 123 3234 4 23524 99
Я создал два массива
1) элементы из фаила
2) максимальная цифра числа
и вот как эту процеду составить, не знаю...

[.Phoenix]

То что нужно в задании ясно, но то, что ты объяснил на своём примере не пойму. Вот дан массив чисел:
312 495654 01266 9137
Тебе надо получить:
132 4569 01266 1379
Я правильно понял? Т.е. в самих числах отсортировать числа по возрастанию

[Lodyr]

почти, но в твоем случае будет так
132 0126 4569 1379
так как
3 6 9 9
я по сути уже написал этот раздел =)
сейчас задача такова что мне нужно из уже готового отсортированного массива взять элементы - только те которые палиндромы (читаются справа-налево и слева-направо) и создать по два массива
один с четной разрядностью, а другой с нечетной - и там и там только палиндромы должны быть
а эти массивы уже нужно сохранить в 2 фаила соответственно =)

[.Phoenix]

Ааа.понял замысел, т.е. ты сначала сортируешь цифры в самом блоке. А потом судя по максимальной цифре в блоке сортируешь блоки, исходя из их максимального. Я правильно понял? Т.е.
2103 4210 0535 9150 6
Мы получаем
0123 4210 0535 6 9150
3 4 5 9
Прав?

[sir.andrey]

Вот процедурка!

procedure ob (a:massiv);
var i,j,x,M:integer;
begin
writeln;
for i:=1 to 10 do begin
  for j:=1 to 10 do begin
                    if a[i]<a[j] then begin
                                      x:=a[i];
                                      a[i]:=a[j];
                                      a[j]:=x;
                                  
                                      end;
                    end;
                  end;
writeln ('metod obmena');
for i:=1 to 10 do write (a[i],' ');
end;