Заполнить массив из 10 элементов случайными числами в интервале [0.100] и отсортировать первую половину по

 {Заполнить массив из 10 элементов случайными числами в интервале [0..100] 
 и отсортировать первую половину по возрастанию, а вторую – по убыванию.}
 program n5str63;
 Var A:Array[1..10] of Integer;
 Var i,j,c: Integer;
 begin
 For i:=1 to 10 do begin
 A[i]:= Random(0,100);
 Write(A[i]:5); { ':' - устанавливает ширину вывода значения массива}
 end;
 For i:=1 to 4 do begin {граница не должна залезать в другую половину}
 For j:=4 downto i do {используем метод пузырька}
 If A[j]>A[j+1] then begin
 C:= A[j];
 A[j]:=A[j+1];
 A[j+1]:=c;
 end;
 end;
 For i:=5 to 9 do begin
 For j:=9 downto i do
 If A[j]<A[j+1] then begin
 C:=A[j];
 A[j]:=A[j+1];
 A[j+1]:=c;
 end;
 end;
 writeln; {пустая печать, чтобы отсортированный массив вывелся на новой строчке}
 For i:=1 to 10 do write(A[i]:5);
 end.

const n=10;
begin
  randomize; //инициализируем ДСЧ
  var a:=Range(0,n-1).Select(i->random(0,100)).ToArray(); //заполняем массив
  a.Println; //печатаем
  a:=Range(0,n div 2-1).Select(i->a[i]).OrderBy(i->i).ToArray()+ //сортируем первую половину по возрастанию
     Range(n div 2,n-1).Select(i->a[i]).OrderByDescending(i->i).ToArray();//сортируем вторую половину по убыванию
  a.Println;  //печатаем
end.

const
  Size = 10; // Число обязательно чётное, чтобы можно было разделить массив попалам
  
var
  A: array [1..Size] of Integer;
  
procedure Sort(Start, Stop : Integer; Increase : Boolean);
var 
  i, j: Integer;
begin
  for i := Start to Stop-1 do
    for j := Stop-1 downto i do
      if (A[j] > A[j+1]) = Increase then
        Swap(A[j], A[j+1]);
end;
 
begin
  Randomize;
  for var i := 1 to Size do 
    A[i] := Random(0, 100);
  
  WriteLn('Сформирован массив случайных чисел из ' + Size + ' элементов:');
  A.Println;
 
  Sort(1, Size div 2, True);
  Sort(Size div 2 + 1, Size, False);
      
  WriteLn('Первая половина массива отсортирована по неубыванию, а вторая - по невозрастанию:');
  A.Println;
end.

  System.Array.Sort(a, 0, a.Length div 2); // сортируем первую половину массива по возрастанию
  System.Array.Sort(a, a.Length div 2, a.Length div 2); // сортируем вторую половину по возрастанию
  System.Array.Reverse(a, a.Length div 2, a.Length div 2); // инвертируем порядок элементов во второй половине массива

const n=10;
begin
  randomize; //инициализируем ДСЧ
  var a:=Range(0,n-1).Select(i->random(0,100)).ToArray(); //заполняем массив
  a.Println; //печатаем
  a:=Range(0,n div 2-1).Select(i->a[i]).OrderBy(i->i).
      Concat(Range(n div 2,n-1).Select(i->a[i]).OrderByDescending(i->i)).ToArray();
  a.Println;  //печатаем
end.