Сортировка одномерного массива методом выбора

@Novyichok_v_del · Регистрация: 15.06.2011

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

помогите пожалуйста с програмкой по одномерному массиву, где нужно произвести сортировку методом выбора, и все положительные элементы расположить по убыванию:

@Novyichok_v_del · 18.12.2011, 14:44 **[ТС]**

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  a        :array[1..10] of integer;
  i        :integer;
  changed  :boolean;
  buf      :integer;
begin
 for i:=1 to 10 do
   a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
 
 repeat
   changed:=false;
   for i:=1 to 10 - 1 do
     if a[i]<a[i+1] then begin
       buf:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=buf;
       changed:=true;
     end;
 until not changed;
 
 for i:=1 to 10 do
   Memo1.Lines.Add(IntToStr(a[i])) ;
 
end;

что -то вроде сего добавить в процедуру, для сортировки выбором...

	18.12.2011, 14:44

Сортировка одномерного массива методом выбора

Решение