Вопрос по информатике:

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

program sort;var a: array [1..10] of integer;i,k: integer;

//процедура обмена значениями двух переменныхprocedure obmen(var x,y: integer); beginx := x + y;y := x - y;x := x - yend;

beginrandomize;

for i := 1 to 10 do //заполнение и вывод массиваbegina[i] := random(100);write(a[i] : 4)end; for i := 1 to 9 do // сортировка массива методом \"пузырька\" for k := 1 to 10 - i do if a[k] > a[k + 1] then obmen(a[k], a[k + 1]);

writeln();

for i := 1 to 10 do // вывод отсортированного массиваbeginwrite(a[i] : 4)end

end.