сортировка матрицы в делфи

[JIeIIIa]

Примерно такое должно получаться?)

[Alinka_]

да!)))а можно мне код этой программы?)))

[Serge_Bliznykov]

да!)))а можно мне код этой программы?)))

можно. разбирайтесь.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var matr: array[1..100,1..100] of integer;
  i,j,n,k: integer;
begin
  repeat
    Writeln('Write a number (from 1 to 100): !');
    Readln(n);
  until (n>0) and (n<=100);

  // заполнение матрицы
  for i:=1 to n  do
    for j:=i to n-i+1 do begin
       matr[i,j] := i-1;
       matr[j,i] := i-1;
       matr[n-i+1,n-j+1] := i-1;
       matr[n-j+1,n-i+1] := i-1;
    end;

  // вывод матрицы на экран
  for i:=1 to n do begin
    for j:=1 to n do
      Write(matr[i,j]:3,' ');
    WriteLn;
  end;

  Readln

end.

[Alinka_]

спасибочки))))