program asdfghjkl123;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..1000]of real;
  n,i,imin,imax :integer;
  min,max :real;
begin
  writeln('vvedit kilikist elementiv n');
  readln(n);
  for i:=1 to n do
  begin
  write('a[',i,']=');
  readln(a[i]);
  end;
  min:=a[1];
  imin:=1;
  max:=a[1];
  imax:=1;
  for i:=2 to n do
  begin
  if a[i]<min then
  begin
  min:=a[i];
  imin:=i;
  end;
  if a[i]>max then
  begin
  max:=a[i];
  imax:=i;
  end;
  end;
  writeln(min:2:2,' ',imin);
  writeln(max:2:2,' ',imax);
  a[imin]:=max;
  a[imax]:=min;
  for i:=1 to n do
  write(a[i]:2:2,' ');
  readln;
end.