Задайте с клавиатуры натуральное число из 10 знаков. Составьте одномерный массив из цифр этого числа в порядке их следования.

Могу дать программу с интернета нашёл на паскале для разложение массива по возрастанию (сам на си занимаюсь)

const n=10;

Var a:array[1..n] of integer; i,j,b:integer;

Begin

 for i:=1 to n do read(a[i]);

 for i:=1 to n-1 do

  for j:=i+1 to n do

    if a[j]<a[i] then

      begin

       b:=a[i];

       a[i]:=a[j];

       a[j]:=b;

      end;

 for i:=1 to n do write(a[i],' ');

End.