Динамические массивы

[Наташок]

Динамические массивы

Разработать программу сортировки(упорядочивания) матрицы размерности n*n, так чтобы элементы в каждой строке отсортированной матрицы распологались по возрастанию и ни один элемент в i-той строке не был больше любого элемента i+1-й строке.Сортировку выполнять над одномерным массивом из n*n элементов,который "накладывается" на исходную матрицу.Используемые в программе массивы должны размещаться в памяти динамически.Решаем на языке Паскаль.Помогите пожалуста)))

 

[Vladimir_S]

Разработать программу сортировки(упорядочивания) матрицы размерности n*n, так чтобы элементы в каждой строке отсортированной матрицы распологались по возрастанию и ни один элемент в i-той строке не был больше любого элемента i+1-й строке.Сортировку выполнять над одномерным массивом из n*n элементов,который "накладывается" на исходную матрицу.Используемые в программе массивы должны размещаться в памяти динамически.Решаем на языке Паскаль.Помогите пожалуста)))

Да пожалуйста:

{$r-}
TYPE
 T=ARRAY[1..1] of Integer;
VAR
 A:^T;
 i,j,k,m,N,dummy:Integer;
BEGIN
 Write('N= ');
 ReadLn(N);
 GetMem(A, SizeOf(Integer)*N*N);

 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A^[N*(i-1)+j]:=Random(200)-100;
     Write(A^[N*(i-1)+j]:5);
    end;
   WriteLn;
  end;
 WriteLn;

 For k:=1 to N*N do
  For m:=1 to N*N-k do
   If A^[m+1]<A^[m] then
    begin
     dummy:=A^[m+1];
     A^[m+1]:=A^[m];
     A^[m]:=dummy;
    end;

 WriteLn('Ordered matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A^[N*(i-1)+j]:5);
   WriteLn;
  end;
 WriteLn;

 FreeMem(A, SizeOf(Integer)*N*N);

 ReadLn;
END.

 

[Наташок]

Спасибо)