Массивы, Паскаль

[Анюта01]

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


Помогите решить плз

[Grag]

Сообщение от Анюта01

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


Помогите решить плз

Готов решить Вашу задачу.

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Google2010]

const n=10;
var
a:array[1..n] of integer;
i,k,j,p:integer;
begin
  randomize;
  for I := 1 to n do
  begin
    a[i]:=random(20);
    write(a[i]:5);
  end;
  writeln;
   k:=1;
   for i := 2 to n  do
     if a[i]>a[k] then k:=i;
      for i := 1 to k do
           for j := 1 to k - 1 do
if A[j]>A[j+1] then
  begin
   p:=A[j];
   A[j]:=A[j+1];
   A[j+1]:=P;
  end;

   for i := k to n do
           for j := k to n - 1 do
if A[j]<A[j+1] then
  begin
   p:=A[j];
   A[j]:=A[j+1];
   A[j+1]:=P;
  end;
  for I := 1 to n do
  begin
    write(a[i]:5);
  end;
  readln;
end.