Необходимо расположить эти числа в порядке возрастания сумм их цифр

[Noconnecting]

Del. Вопрос решен, тему можно закрыть.

[Aleksandr H.]

1. на этапе вычисления суммы цифр - заносишь каждую сумму в елемент i массива, например, SE.
2. сортируешь SE пузырьком, только вмести с swap'ом SEмассива, меняешь аналогические элементы

При этом для любой пары чисел с одинаковой суммой цифр первым должно следовать меньшее из этих чисел.

а эту часть сделаем после того как просто отсортируешь N

[dimon_snake]

Держи
Сортировкой пузырьком

const n = 6;
type
chis = record 
chi,suma:integer; \\chi для самого числа, suma - для его суммы
end;
var
ch:array[1..n] of chis;
i,j,k,x,sum,m,k1,k2:integer;
s:string;
begin
for i:=1 to n do \\читаем числа в виде строки, преобразовываем в числа, считаем суммы и пихаем все в массив
begin
  Readln(s);
  sum:=0;
  k:=length(s);
  for j:=1 to k do
  begin
    val(s,m);
    val(s[j],x);
    sum:= sum + x;
    if j = k
    then
    begin
      ch[i].suma:=sum;
      ch[i].chi:=m;
    end;
  end;
end;
for i:=1 to n - 1 do\\сортировка, пущай немного извращенная
  for j:=1 to n-i do
    if ch[j].suma>ch[j+1].suma then
    begin
      k1:=ch[j].suma;
      k2:=ch[j].chi;
      ch[j].suma:=ch[j+1].suma;
      ch[j].chi:=ch[j+1].chi;
      ch[j+1].suma:=k1;
      ch[j+1].chi:=k2;
    end;
for i:=1 to n do \\если две одинаковых суммы
begin
  if i=n then break;
  if ch[i].suma = ch[i+1].suma then
    if ch[i].chi<ch[i+1].chi then continue
    else if ch[i].chi>ch[i+1].chi then
    begin
      k1:=ch[i].suma;
      k2:=ch[i].chi;
      ch[i].suma:=ch[i+1].suma;
      ch[i].chi:=ch[i+1].chi;
      ch[i+1].suma:=k1;
      ch[i+1].chi:=k2;
    end;
end;
for i:=1 to n do
Writeln(ch[i].chi);
reAdln;
end.

[Noconnecting]

Отлично, задачу решил.

[Noconnecting]

Заработало.

[dimon_snake]

У меня программа моя работает. А относительно n, нетрудно дописать:

Readln(n);

и убрать константу n, а длину массива поставить под максимум(6).
Какой паскаль?

[Noconnecting]

Сообщение от dimon_snake

У меня программа моя работает. А относительно n, нетрудно дописать:

Readln(n);

и убрать константу n, а длину массива поставить под максимум(6).
Какой паскаль?

PascalABC.NET. Все у меня наконец то получилось, всем спасибо за помощь. Очень помогли я переделал свою программу и теперь все отлично выводит.