Пузырь

[Виктория7777]

procedure TForm1.Button2Click(Sender: TObject);
Var j, buf, l:byte; a: integer;
begin
Edit3.Text:='';
For i:=1 to n do
a:=0
for i:=2 to n do
begin
for j:= n downto i do
begin
a:=a+1;
if m[j-1]<m[j] then
begin
buf:=m[j-1];
m[j-1]:=m[j];
m[j]:=buf;
for i:=1 to n do
Edit3.Text:=Edit3.Text+'   '+IntToStr(m[i]);

почему-то ошибку показывает...(

[GetMax]

почему-то ошибку показывает...(

Какую ошибку показывает? Что вобще должна делать программа?

[Виктория7777]

сортировать массив методом пузырька...

[GetMax]

Примерно так

Const
  N=10;
Var
  A:array[1..10] of Integer;
  i,j:Byte;
  X:Integer;
begin
  Randomize;
  For i:=1 to N do A[i]:=Random(100);
  Edit1.Text:='';
  for i:=1 to n-1 do
  begin
    for j:=i+1 to n do
    begin
      if a[i]>a[j] then
      begin
        x:=a[i];
        a[i]:=a[j];
        a[j]:=x;
      end;
    end;
  end;
  For i:=1 to N do Edit1.Text:=Edit1.Text+' '+IntToStr(A[i])
end;

[Виктория7777]

Это сортировка не методом пузырька...

[Alter]

http://www.pascal-c.com/tag.php?tag=64

>> http://www.vzmakh.ru/info/pascal/modules/page14.html

[Son Of Pain]

For i:=1 to n do
a:=0

Это чтоб наверняка обнулилось?

[Виктория7777]

Сообщение от Son Of Pain

Это чтоб наверняка обнулилось?

Да