Сортировка выборкой

@Valik_000 · Регистрация: 21.04.2013

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

( Object Pascal )
Помогите с сортировкой ( исправить ).
Вот задание . (Все работает но проблема с сортировкой).
Дана целочисленная прямоугольная матрица. Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с неубыванием характеристик. Использовать сортировку выбором
Нужно отсортировать строки сортировкой выбором

Delphi

procedure TForm1.Button5Click(Sender: TObject);
 
var x, k, i, j : integer;
  buf:integer;
begin
for i:=1 to n-1 do
  begin
k:=i; x:=b[i];
   for j:=i+1 to n do
    if b[j] < x then
      begin
      k:=j; x:= b[j];
      end;
    b[k]:= b[i]; b[i]:=x;
for j:=1 to m do
begin
buf:=a[i,j];
a[i,j]:=a[k,j];
a[k,j]:=buf;
end;
end;
for i:=1 to n do
begin
StringGrid4.Cells[0,i] := IntToStr( b[i]);
for j:=1 to m do
begin
StringGrid2.Cells[j,i] := IntToStr( a[i,j]);
end;
end;
end;

Комментарий модератора

Теги кода исправлены модератором. Для оформления кода Delphi следует использовать теги: [DELPHI] - [/DELPHI].
Тема перенесена в раздел: Делфи для начинающих. Исходный раздел: Turbo Pascal.

Добавлено через 3 часа 43 минуты
помогите люди ((

	21.04.2013, 22:54