Задание заполните массив случайными числами в интервале [100 ... 999] и переставьте их по возрастанию суммы цифр.

Var

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

i, j, k:integer;

function Sum (c:integer) : integer;

var s:integer;

begin

s:=c mod 10;

c:=c div 10;

s:=s + c mod 10;

s:=s + c div 10;

sum:=s;

end;

begin

randomize;

writeln ('Массив:') ;

for i:=1 to 10 do

begin

a[i]:=random (900) + 100;

write (a[i],' ') ;

end;

writeln;

writeln ('Массив после перестановок:') ;

for i:=1 to 9 do

for j: = (i+1) to 10 do

if sum (a[i]) >sum (a[j]) then

begin

k:=a[i];

a[i]:=a[j];

a[j]:=k;

end;

for i:=1 to 10 do

write (a[i],' ') ;

writeln;

end.