Сортировка обменом

@Vovka2017 · Регистрация: 13.05.2017

Author24 — интернет-сервис помощи студентам

Нужно переставить строки матрицы по спаданию первых элементов строк, считает через раз.Нужно еще условие если a[i,1] больше a[l,1]?

Delphi

a: array[1..10,1..10] of integer;
 
var i,j,l,b : integer;
begin
 
  for i:=1 to StringGrid1.RowCount do
for j:=1 to StringGrid1.ColCount do
begin
a[i,j]:=Random(10);
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 
end;
for i:=1 to StringGrid1.RowCount -1 do
for l:=i+1 to StringGrid1.RowCount do
if a[i,1]<a[l,1] then
for j:=1 to StringGrid1.ColCount do
begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
 
 for i:=1 to StringGrid1.RowCount do
for j:=1 to StringGrid1.ColCount do
  StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
end;

@Puporev · 23.06.2018, 13:38

Delphi

for i:=1 to StringGrid1.RowCount -2 do
for l:=i+1 to StringGrid1.RowCount-1 do
if a[i,1]<a[l,1] then
for j:=1 to StringGrid1.ColCount-1 do
begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
for i:=1 to StringGrid1.RowCount-1 do
for j:=1 to StringGrid1.ColCount-1 do
  StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
end;

	23.06.2018, 13:38