Трёхмерный массив.Сортировка

[Klik_1602]

Помогите пожалуйста! что-то совсем голова не варит((
Требуется отсортировать трёхмерный массив по возрастанию.
как я понимаю, проще это будет сделать, преобразовав данный массив в одномерный.
Подскажите, как выполнить преобразование?!

[andrewpalkin]

Сообщение от Klik_1602

Помогите пожалуйста! что-то совсем голова не варит((
Требуется отсортировать трёхмерный массив по возрастанию.
как я понимаю, проще это будет сделать, преобразовав данный массив в одномерный.
Подскажите, как выполнить преобразование?!

1. Создать одномерный массив размером на все элементы трехмерного . Записать все элементы в массив , пройдя по трехмерному 3-мя for или как удобно .
2. Отсортировать одномерный массив
3. Записать отсортированные элементы обратно в трехмерный .

[Klik_1602]

непонятно только как сделать 3-ий пункт---
3. Записать отсортированные элементы обратно в трехмерный

попробовала сделать по-другому, выходит какай-то бред,
подскажите как лучше всего вывести 3-х мерный массив

uses
 crt;
var
 n,m,k,i,j,t:integer;
 a:array[1..10,1..10,1..10] of integer;
procedure swap(var x,y,z:integer);
   var t,q:integer;
 begin
    t := x;
    x := y;
    y := z;
    z := t;
 end;
begin
 clrscr;
 writeln ('vvod poryadok matrica n');
 readln (n);
 m:=n; k:=n; 
 randomize;
   for i := 1 to n do
   for j := 1 to m do
   for t := 1 to k do
   a[i, j, t] := Random(10);
      for i := 1 to n do
      begin
      for j := 1 to m do
      begin
      for t := 1 to k do
      write(a[i,j,t]);
      writeln;
      end;
      end;
   for k:=1 to n-1 do
   for j:=1 to n-k do
   for i:=1 to n-j do
   begin
   if (a[i,j,k] > a[i+1,j,k]) and (a[i,j,k] > a[i+2,j,k])  then
   swap(a[i,j,k],a[i+1,j,k],a[i+2,j,k]);
   end;
     for i := 1 to n do
     begin
     for j := 1 to m do
     begin
     for t := 1 to k do
     write(a[i,j,t]);
     writeln;
     end;
     end;
end.

[andrewpalkin]

uses
 crt;
var
 n,m,k,i,j,t,num,temp:integer;
 a:array[1..10,1..10,1..10] of integer;
 b:array[1..1000] of integer;

begin
 clrscr;
 writeln ('vvod poryadok matrica n');
 readln (n);
 randomize;
   for i := 1 to n do
    for j := 1 to n do
     for t := 1 to n do
      a[i, j, t] := Random(10);
      
   num:=1;
   for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          for t := 1 to n do
            begin
              write(a[i,j,t]);
              b[num]:=a[i,j,t];
              inc(num);
            end;
         writeln;
        end;
      writeln;
    end;
   
   for i:=1 to n*n*n-1 do
     for j:=i+1 to n*n*n do
     begin
        if(b[i]>b[j]) then
        begin
          temp := b[i];
          b[i]:=b[j];
          b[j]:=temp;
        end;
      end;
   num:=1;
    for i := 1 to n do
      begin
        for j := 1 to n do
          begin
            for t := 1 to n do
              begin
                a[i,j,t]:=b[num];
                inc(num);
                write(a[i,j,t]);
              end;
           writeln;
          end;
        writeln;
     end;
end.

[Klik_1602]

спасибо огромнейшее))))