Язык программирования: Паскаль. Написать программу. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую – по убыванию.      

var a:array[1..10]of integer; i,j,k:integer; begin for i:=1 to 10 do a[i]:=random(101); for i:=1 to 10 do write(a[i],' '); writeln; for i:=1 to 5 do for j:=1 to 4 do if a[j]>a[j+1] then begin k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k; end;   for i:=1 to 5 do for j:=7 to 10 do if a[j]>a[j-1] then begin k:=a[j]; a[j]:=a[j-1]; a[j-1]:=k; end;   for i:=1 to 10 do write(a[i],' '); end.