Uses CRT;

Const
 n=10;
 v_min=-5;
 v_max=10;

Var
 V:Array[1..n] of Integer;
 Num:Array[1..n] of Byte;
 i,j,k:byte;
 D:Integer;

Begin
 ClrScr;
 Randomize;
 for i:=1 to n do
  begin
   V[i]:=v_min+Random(v_max-v_min+1);
   Num[i]:=i;
  end;
 for i:=1 to n-1 do
  for j:=1 to n-i do
   if V[Num[j]]>V[Num[j+1]] then
    begin
     k:=Num[j];
     Num[j]:=Num[j+1];
     Num[j+1]:=k;
    end;
 Writeln(' Initial array:');
 for i:=1 to n do
  if (i=Num[2]) or (i=Num[n-1]) then
   begin
    textcolor(red);
    write(V[i]:4);
    NormVideo;
   end
  else
   write(V[i]:4);
 Writeln;
 if (Num[2]<Num[n-1]) and (Num[n-1]-Num[2]>1) then
  begin
   for i:=1 to Num[n-1]-Num[2]-2 do
    for j:=1 to Num[n-1]-Num[2]-1-i do
     if V[Num[2]+j]>V[Num[2]+j+1] then
      begin
       D:=V[Num[2]+j+1];
       V[Num[2]+j+1]:=V[Num[2]+j];
       V[Num[2]+j]:=D;
      end;
  end;
 if (Num[2]>Num[n-1]) and (Num[2]-Num[n-1]>1) then
  begin
   for i:=1 to Num[2]-Num[n-1]-2 do
    for j:=1 to Num[2]-Num[n-1]-1-i do
     if V[Num[n-1]+j]>V[Num[n-1]+j+1] then
      begin
       D:=V[Num[n-1]+j+1];
       V[Num[n-1]+j+1]:=V[Num[n-1]+j];
       V[Num[n-1]+j]:=D;
      end;
  end;
 Writeln(' New array:');
 for i:=1 to n do
  if (i=Num[2]) or (i=Num[n-1]) then
   begin
    textcolor(red);
    write(V[i]:4);
    NormVideo;
   end
  else
  if ((i>Num[2]) and (i<Num[n-1])) or ((i>Num[n-1]) and (i<Num[2])) then
   begin
    textcolor(lightblue);
    write(V[i]:4);
    NormVideo;
   end
  else
   write(V[i]:4);
 Writeln;
 ReadKey
End.

Uses CRT;

Const
 n=5;
 v_min=-20;
 v_max=10;

Var
 M1,M2:Array[1..n,1..n] of Integer;
 i,j:byte;

Begin
 ClrScr;
 Randomize;
 Writeln(' Initial array:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     M1[i,j]:=v_min+Random(v_max-v_min+1);
     write(M1[i,j]:4);
    end;
   writeln;
  end;
 Writeln;
 Writeln(' New array:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     M2[i,j]:=M1[n+1-j, i];
     write(M2[i,j]:4);
    end;
   writeln;
  end;
 Readln
End.