масив на 1000 ел.

[ГРИГОРИЙ-кореш]

есть массив на 1000 елементов. сортировать его по спаданию мэтодом вставки. ответ занести в тектовый файл.

[TOJluK]

Сортировка масива (A- масив значений, n-Размер массива):
n в нашем случае 1000

procedure ArraySort(var A : Array of Real; const n : Integer);
var
    i,j : Integer;
    Temporary : Double;
begin
i:=0;
// просматриваем эл- ты массива
while i<=N-1 do
 begin
 j:=0;
 while j<=n-2-i do
  begin
  // тут находим эл-т который меньше следующего
  if A[j]<A[j+1] then  // if знак ">" отсортируем по возрастанию
   begin
   // Меняем элементы местами (
   Temporary := A[j];
   A[j] := A[j+1];
   A[j+1] := Temporary;
   end;
  Inc(j);
  end;
 Inc(i);  // уменьшаем кол- во просматриваемых эл-ов
 end;
end;

Далее перебираем элементы массива в цикле и пишем в файл
AssignFile(F, 'c:\ArrayFile.txt');
Rewrite(f) ;
writeln(f,a);
CloseFile(f);