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

program sort;

var a: array [1 ... 10] of integer;

i, k: integer;

//процедура обмена значениями двух переменных

procedure obmen (var x, y: integer);

begin

x : = x + y;

y : = x - y;

x : = x - y

end;

begin

randomize;

for i : = 1 to 10 do / /заполнение и вывод массива

begin

a[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 / / вывод отсортированного массива

begin

write (a[i] : 4)

end

end.