Помогите с задачкой

[bu4a]

Нужно написать программу на языке Паскаль (или С++), реализующую сортировку целочисленного массива методом пузырька. Массив заполняется из файла unsort.txt, отсортированный массив сохраняется в файле sort.txt. Массив состоит из 20 чисел. Помогите кому нетрудно

[BBB]

Код: Выделить всё

const ITEMS_QTY = 20;
var  Arr : array [1 .. ITEMS_QTY] of integer;
var blChanged : boolean;
    iLoop : integer;
    iTmp : integer;
begin

 { ......... заполнение массива Arr ...............}
 
 { сортируем по возрастанию }

  repeat
    blChanged:=FALSE;   { Перестановок пока не было }
    for iLoop:=1 to (ITEMS_QTY-1) do begin
      if (Arr [iLoop] > Arr [iLoop+ 1]) then begin
        iTmp := Arr [iLoop];
        Arr [iLoop] := Arr [iLoop + 1];
        Arr [iLoop + 1] := iTmp;
        blChanged:=TRUE;
      end;
    end;
  until (NOT blChanged);
end.

[Хыиуду]

Читай раздел "Алгоритмы"

[Dim...ON]

суть BBB тебе изложил (это при условии, что ты сам немного умеешь писать на этих языках)
если совсем с языками туго... то пиши на 198-012-696, может найду лишнее время, помоч