Заполнить массив из 10 элементов случайными числами в интервале [0..99] и отсортировать...

Question

Заполнить массив из 10 элементов случайными числами в интервале [0..99] и отсортировать его по возрастанию суммы цифр.
Исходный массив:
14 25 13 12 76 58 21 87 10 98
Результат:
10 21 12 13 14 25 76 58 87 98

Comments

Відповідь потрібно сьогодні дати чи можна завтра?

Answer 1

Const
n=10;
var
a:array[1..n]of integer;
i,j,buf:integer;
begin
    for i:=1 to n do
         begin
              a[i]:=random(100);
              write(a[i]:4);
         end;
for i:=1 to n-1 do
    for j:=i+1 to n do
          if (a[i]mod 10+a[i]div 10)>(a[j]mod 10+a[j]div 10)then
                begin
                    buf:=a[i];
                    a[i]:=a[j];
                    a[j]:=buf;
               end;
writeln;
writeln('NEW:');
for i:=1 to n do
    write(a[i]:4);
end.