благодарнасть и просьба, процедура и функция Опции

[trew]

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

[trew]

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

[Незнайка 013]

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

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

[trew]

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

[trew]

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.

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

[trew]

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

[mind abuse]

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

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