Информатика 10 кл Паскаль
Массив содержит четное количество элементов.Напишите программу,которая сортирует первую половину массива по возрастанию,а вторую по убыванию.Каждый элемент должен остаться в "своей" половину.
Заранее спасибо;)

Const   N = 10;VarA:array[1..N] of integer;i,j:integer;BeginWrite('Исходный массив:        ');For i:= 1 to N do    Begin    A[i]:=random(21)-10;    Write(A[i],' ')    End;WriteLn;Write('Отсортированный массив: ');For j:= 1 to N div 2 do    For i:= 1 to N div 2-1 do        if A[i]>A[i+1] then Swap(A[i],A[i+1]);For j:= 1 to N div 2 do    For i:= N div 2 to N-1 do        if A[i]<A[i+1] then Swap(A[i],A[i+1]);For i:= 1 to N do    Write(A[i],' ')End.