Pascal

[Аня13]

Дан одномерный массив целых чисел, содержащий 20 различных элементов. Найти минимальный элемент. Отсортировать предшествующие ему элементы по возрастанию, а следующие за ним элементы по убыванию.

[GetMax]

Var
  Mas:Array[1..20] Of Byte;
  I,Imin,Min,Buf,N:Byte;
  Obmen:Boolean;
Begin
  Randomize;
  For i:=1 to 20 do
  Begin
     Mas[i]:=random(50);
     Write(Mas[i]:3)
  End;
  Min:=High(Byte);
  For i:=1 to 20 do
  If Mas[i] < Min then
  Begin
     Min:=Mas[i];
     Imin:=I
  End;
  Writeln('Minimum = ',Min);
  Repeat
     For i:=1 To Imin-1 do
     If Mas[i] > Mas[i+1] then
     Begin
         Buf:=Mas[i];
         Mas[i]:=Mas[i+1];
         Mas[i+1]:=Buf
         Obmen:=True
    End;
    Dec(Imin)
  Until Not Obmen;
  N:=20;
  Repeat
     Obmen:=False;
     For i:=Imin+1 to N-1 do
     If Mas[i] > Mas[i+1] then
     Begin
        Buf:=Mas[i];
        Mas[i]:=Mas[i+1];
        Mas[i+1]:=Buf
     End;
     Dec(N)
  Until Not Obmen;
  Writeln;
  For i:=1 to 20 do Write(Mas[i]:3);
  Readln
End.