Сортировка массива

[Avvakymova]

Дан одномерный массив с количеством элементов n.Осуществить сортировку массива методом сортировки вставками.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!

[Mad_Cat]

var
{.......}
  i, j, buf:integer;
x:array[1..100] of real;
begin
{.......}
  for i:=2 to N do
  begin
    buf:=x[i];
    j:=i-1;
    while (j>=1) and (x[j]>buf) do
    begin
      x[j+1]:=x[j];
      j:=j-1;
    end;
    x[j+1]:=buf;
  end;
{.................}
end.

(с) WIKI

[Avvakymova]

А можно это без процедуры?

[Mad_Cat]

А можно это без процедуры?

можно) разрешаю)

А не мог бы ты еще написать прогу методом сортировки выбором элемента,только не через процедуру

program Sort_Vybor; 
 var A:array[1..100] of integer; 
 N,i,m,k,x : integer; 

begin 
 write('количество элементов массива '); 
 read(N); 
 for i:=1 to n do read(A[i]); 
 for k:=n downto 2 do {k- количество элементов для поиска max } 
   begin 
    m:=1; { m - место max } 
    for i:=2 to k do if A[i]>A[m] then m:=i; 
    {меняем местами элементы с номером m и номером k} 
    x:=A[m]; A[m]:=A[k]; A[k]:=x; 
   end; 
 for i:=1 to n do write(A[i],' '); {упорядоченный массив} 
end.

[Avvakymova]

А не мог бы ты еще написать прогу методом сортировки выбором элемента,только не через процедуру))

[Avvakymova]

спасибо,ты мне очень помог))

[Avvakymova]

Сообщение от Avvakymova

А не мог бы ты еще написать прогу методом сортировки выбором элемента,только не через процедуру))

а через выбор элемента,плииииз)

[Mad_Cat]

а через выбор элемента

http://programmersforum.ru/showpost....12&postcount=4 чем не устроило7

[Avvakymova]

Сообщение от Mad_Cat

http://programmersforum.ru/showpost....12&postcount=4 чем не устроило7

ой,сори,я уже совсем запуталась))все пасибо