Представлений код - для розв’язку задачі сортування елементів масиву, який складається з 6 елементів, за зростанням. Завдання: змініть код таким чином, щоб сортування відбувалось за спаданням.
var
Form1: TForm1;
i:integer;
a: array [0..5] of integer=(4, 9, 2, 0, 1, 8);
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to 5 do
memo1.lines[i]:=inttostr(a[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var j, min, n, buf, imin : integer;
begin
n:=6;
for i := 0 to n-1 do
begin
min := a[i];
imin := i;
for j := i+1 to n do
begin
if a[j] < min then
begin
min := a[j];
imin := j;
end;
end;
buf:=a[i];
a[i]:=min;
a[imin] := buf;
end;
for i:= 1 to n do
Memo2.Lines[i] := IntToStr(a[i]);
end;
end.
