[bullet92820]

Stringgrid1.Cells[i,j]:=Inttostr(arr[i,j]);
вот так нужно выводить?

[NIch]

Да, только нужно учесть, что в StrinGrid номера ячеек начинаются с нуля...

[bullet92820]

Код:

var
  Form1: TForm1;
 
 b:array of integer;
 Arr : array of array of integer;
 i, j, m,n, k, t: integer;

  

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin

 SetLength(arr,8,8); //Установить размер массива
 //Сортировка строк
 for j:=0 to n-1 do
  for i:=0 to n-j-1 do
   if Arr[i, m] > Arr[i+1, m] then
   begin
    t := Arr[i, m];
    Arr[i, m] := Arr[i+1, m];
    Arr[i+1, m] := t;
    StringGrid1.ColCount := 8;
StringGrid1.RowCount := 8;

   Stringgrid1.Cells[i,j]:=Inttostr(arr[i,j]);

   end;
 //По аналогии делается сортировка столбцов
 for j:=0 to m-1 do
  for i:=0 to m-j-1 do
   if Arr[n, i] > Arr[n, i+1] then
   begin
    t := Arr[n, i];
    Arr[n, i] := Arr[n, i+1];
    Arr[n, i+1] := t;

   end;
 
    end;

прога запускается но в стринггрид ничего не выводится...

[bullet92820]

Код:

procedure TForm1.Button3Click(Sender: TObject);

var a:array[1..8,1..8]of integer;
begin

  For i:=1 to 8 do
    for j:=1 to 8 do begin
        StringGrid1.ColCount := 8;
StringGrid1.RowCount := 8;
        Stringgrid1.Cells[i,j]:=Inttostr(a[i,j]);;
    end;
end;

Admin: Следим за тегами, иначе последуют санкции!

Для этого случая работает, когда там задаю массив так var a:array[1..8,1..8]of integer;
то после (arr,n,m) выскакивает ошибка

[bullet92820]

и еще в процедуре procedure TForm1.Button3Click(Sender: TObject); все заполняется какими то непонятными цифрами