Благодарю за то что вы мне помогли решить? Особенно благодарен:
mind abuse,
kvadrat,
ammaximus
И всех тех кто мне помогал и старался помощь. Но в тоже время есть у меня к вам просьба.
Мой одногруппник был на больничном и у него накопились долги помогите ему решить пару задач

пацаны помогите а

к сожалению я не могу помочь тебе с сортировками поищи в нете алгоритмы сорптировок может чего и найдёте

напишите в лс поможет кто нибудь или нет очень надо через 5 дней экзамен

Program CountingSort;

Var A,B : array[1..1000] of byte;

C : array[byte] of integer;

N,i : integer;

Begin

{Определение размера массива A (N) и его заполнение}

…

{сортировка данных}

for i:=0 to 255 do

C[i]:=0;

for i:=1 to N do

C[A[i]]:=C[A[i]]+1;

for i:=1 to 255 do

C[i]:=C[i-1]+C[i];

for i:=N downto 1 do

begin

B[C[A[i]]]:=A[i];

C[A[i]]:=C[A[i]]-1; {здесь мы избегаем возможности записи двух одинаковых чисел в одну ячейку}

end;

{Вывод массива B}

…

End.

что дальше можно сделать

не ну хоть один может помочь плиз

Так, во-первых, - какая ещё сортировка? Во-вторых - предлагаю использовать четыре разных по типу массива.

Ок, лс, так лс....