Пузырёк

[Виктория7777]

Народ, помогите пожалуйста. Покажите какой-нибудь простой пример программы Сортировки массива методом пузырка. Действие самого метода я поняла, только никак не разберусь на примере самой программы, как она работает? И как реализовать?
программа примерно такая:
-мы вводим элементы массива(например 10 элиментов)
-программа их сортирует(соответственно по возрастанию)
-вывод отсортиованного массива на экран

[Serge_Bliznykov]

ну, например, так:

const
  RazmerMassiva = 10;
var
  i, j, msX : integer;
  Massiv : array[1..RazmerMassiva] of integer;
begin
  {ввод массива}
  WriteLn('Введите массив');
  for i:=1 to RazmerMassiva do
  begin
    Write('введите ',i,'-й элемент массива: ');
    Readln(Massiv[i]);
  end;

  { вывод массива }
  WriteLn('Исходный массив: ');
  for i:=1 to RazmerMassiva do Write(Massiv[i]:4);
  WriteLn;


  {сортировка массива}
  for i:=1 to RazmerMassiva-1 do
    for j:=i+1 to RazmerMassiva do
      if Massiv[i]>Massiv[j]then
        begin
          msX:=Massiv[i];
          Massiv[i]:=Massiv[j];
          Massiv[j]:=msX
        end;

  {вывод массива }
  WriteLn('После сортировки массив: ');
  for i:=1 to RazmerMassiva do Write(Massiv[i]:4);
  WriteLn;

  readln

end.

[Виктория7777]

а на delphi можно....?

[Serge_Bliznykov]

а на delphi можно....?

можно.
в начале (Перед кодом) вставьте

program ИмяВашейПрограммы;

{$APPTYPE CONSOLE}

тут текст программы

сохраните это ИмяВашейПрограммы.dpr
получите консольное приложение на Delphi

[Alex Cones]

Еще примеры:
http://www.programmersforum.ru/showthread.php?t=70310

[Виктория7777]

Спасибо большое)))