обьясните по сортировке -) Опции

[sahek]

ПРограмма сортирует элементы массива по убыванию.
Вот сама программа

const
 n=10;
var
 a: array[1..n] of integer;
 procedure sort(var a: array of integer);
 var
  i,j,m,k: integer;
 begin
for i:=low(a) to high(a)-1 do begin
  m:=i;
   for j:=i+1 to high(a) do
    if a[m]<a[j] then begin
     m:=j;
   end;
  if m<>i then begin
   k:=a[i];
   a[i]:=a[m];
   a[m]:=k;
  end;
  end;
 end;
var
 i:integer;
begin
 randomize;
 for i:=low(a) to high(a) do begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
   writeln;
 sort(a);
for i:=low(a) to high(a) do
  write(a[i]:3);
  writeln;
 readln;
end.

Мне не понятно что делают следующие операторы, обьясните пожалуйста:
1.

begin
for i:=low(a) to high(a)-1 do begin
  m:=i;

2.

 for i:=low(a) to high(a) do begin
  a[i]:=random(100);
  write(a[i]:3);
 end;

3.

for i:=low(a) to high(a) do
  write(a[i]:3);
  writeln;

Сообщение отредактировано: sahek - 6.01.2008 13:53