Изменить массив таким образом, чтобы все элементы массива, стоящие до максимального элемента этого массива бы ли бы отсортированы по возрастанию элементы стоящие после него-по убыванию.

Const

n=15;

var

a:array[1 ... n] of integer;

i, j, k, t:integer;

begin

Randomize;

Writeln ('Исходный массив') ;

k:=1;

for i:=1 to n do

begin

a[i]:=Random (99) + 1;

Write (a[i],' ') ;

if a[i]>a[k] then k:=i

end;

Writeln;

for i:=1 to k-2 do

for j:=1 to k-2 do

if a[j] > a[j+1] then

begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t end;

for i:=k+1 to n-1 do

for j:=k+1 to n-1 do

if a[j] < a[j+1] then

begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t end;

Writeln ('Упорядоченный массив') ;

for i:=1 to n do Write (a[i],' ') ;

end.