Pascal: сортировка одном. массива рекурсией
Выбираем в массиве a[1 : n] наибольший элемент и меняем его и последний элемент a[n] местами. На следующем шаге повторяем то же самое для еще не отсортированной части a[1 : n–1] массива и т. д. При n = 1 массив уже упорядочен. Запрограммировать алгоритм в виде рекурсивной процедуры. Ввод и вывод массива написан, нужна только часть с рек. функцией. Пожайлусто, помогите!!!!!
Держи, накидал по быстренькому.
uses wincrt;
var
a:array[1..5] of integer;
i:integer;
procedure sort(count: integer);
var
max, N_max, buf:integer;
begin
max := a[1];
N_max := i;
for i := 1 to count do
if max <= a then
begin
N_max := i;
max := a;
end;
buf := a[count];
a[count] := a[N_max];
a[N_max] := buf;
if count >= 2 then Sort(count-1);
end;
begin
randomize;
for i := 1 to 5 do a := random(10);
for i := 1 to 5 do write (a);writeln;
sort(5);
for i := 1 to 5 do write (a);
end.
Спосибо тебе большое!!!! Все пошло 
)))
)))