Массив

uses
  crt;
const
  n=20;{размер массива}
var
  a,b:array[1..n]of integer;
  i,max,min,temp,pmx,pmn:integer;
{функция возвращает наименьшее двух чисел}
function Little(x,y:integer):integer;
begin
  if x>y then
    Result:=y
  else
    if x<y then
      Result:=x
    else
      Result:=x
end;
{функция возвращает наибольшее двух чисел}
function Large(x,y:integer):integer;
begin
  if x>y then
    Result:=x
  else
    if x<y then
      Result:=y
    else
      Result:=x
end;
{основная программа}
begin
  clrscr;
  {задаем и выводим массив}
  writeln('Исходный массив:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(20)-10;
    write(a[i]:2,' ')
  end;
  writeln(']');
  {находим минимум максимум}
  max:=a[1];
  min:=max;
  pmx:=1;
  pmn:=pmx;
  for i:=2 to n do
  begin
    if a[i]>max then
    begin
      max:=a[i];
      pmx:=i
    end;
    if a[i]<min then
    begin
      min:=a[i];
      pmn:=i
    end
  end;
  writeln('a[',pmx,'] это максимум. Он равен ',max);
  writeln('a[',pmn,'] это минимум. Он равен ',min);
  {меняем между минимумом и максимумом}
  max:=0;
  for i:=Large(pmn,pmx)-1 downto Little(pmn,pmx)+1 do
  begin
    inc(max);
    b[max]:=a[i];
  end;
  max:=0;
  for i:=Little(pmn,pmx)+1 to Large(pmn,pmx)-1 do
  begin
    inc(max);
    a[i]:=b[max]
  end;
  {выводим массив}
   writeln('Полученный массив:');
   write('[ ');
   for i:=1 to n do
   begin
     if i=pmx then
       textcolor(2)
     else
       if i=pmn then
         textcolor(4)
       else
         if (i>Little(pmx,pmn))and(i<Large(pmx,pmn)) then
           textcolor(1)
         else
           textcolor(0);
     write(a[i]:2,' ');
   end;
   textcolor(0);
   writeln(']');
   textcolor(2);
   write('Зеленым ');
   textcolor(0);
   writeln('обозначен максимум');
   textcolor(4);
   write('Красным ');
   textcolor(0);
   writeln('обозначен минимум');
   textcolor(1);
   write('Синим ');
   textcolor(0);
   writeln('обозначен промежуток');
end.