Сортировка массива... Помогите пожалуйста.(ПАСКАЛЬ)

[vkrotov]

Написать программу, которая осортировывает по убыванию первую меньшую половину массива а, размерностью N. Первая меньшая означает, что если размерность массива задана нечетным числом, то кол-во элементов, которое требуется отсортировать, равно кол-ву целой половине элементов массива.

[samec2011]

Помогу за определенную плату. Стучите в асю 11один11-5шесть5шесть, обсудим.

[Хыиуду]

Сортировка массива в разделе "Алгоритмы", только сортировка пойдет не от 1 до N, а от 1 до N div 2

[vkrotov]

ничего не нашел в разделе алгоритмы...

[dr.Jekill]

[syntax="pascal"]
procedure LexSort(var item: DataArray; count:integer);
procedure QuickSort(l, r: integer; var it ataArray);
var i_,j: integer;
x, y: string;
begin
i_:=l;
j:=r;
x:=it[(l+r) div 2];
repeat
while it[i_]<x do inc(i_);
while x<it[j] do dec(j);
if i_<=j then
begin
y:=it[i_];
it[i_]:=it[j];
it[j]:=y;
inc(i_);
dec(j);
end;
until i_>j;
if l<j then QuickSort(l, j, it);
if l<r then QuickSort(i_, r, it);
end;
begin
QuickSort(1,count,item);
end;
[/syntax]
Указывайте count нужное Вам.

[Хыиуду]

ничего не нашел в разделе алгоритмы...

Значит, не утрудили себя просмотром более одной страницы. Все там есть