program ChangeMinMax;
var
  A : array[1..15] of Integer;
  i, minIdx, maxIdx, temp : Integer;
begin
  Randomize;
  for i := 1 to 15 do
  begin
    A[i] := Random(150) - 50;
    Write(A[i]:5);
  end;
  Writeln;
  minIdx := 1;
  maxIdx := 1;
  for i := 2 to 15 do
  begin
    if A[i] < A[minIdx] then minIdx := i;
    if A[i] > A[maxIdx] then maxIdx := i;
  end;
  temp := A[minIdx];
  A[minIdx] := A[maxIdx];
  A[maxIdx] := temp;
  for i := 1 to 15 do
    Write(A[i]:5);
  Writeln;
end.
 

cHJvZ3JhbSBDaGFuZ2VNaW5NYXg7CnZhcgogIEEgOiBhcnJheVsxLi4xNV0gb2YgSW50ZWdlcjsKICBpLCBtaW5JZHgsIG1heElkeCwgdGVtcCA6IEludGVnZXI7CmJlZ2luCiAgUmFuZG9taXplOwogIGZvciBpIDo9IDEgdG8gMTUgZG8KICBiZWdpbgogICAgQVtpXSA6PSBSYW5kb20oMTUwKSAtIDUwOwogICAgV3JpdGUoQVtpXTo1KTsKICBlbmQ7CiAgV3JpdGVsbjsKICBtaW5JZHggOj0gMTsKICBtYXhJZHggOj0gMTsKICBmb3IgaSA6PSAyIHRvIDE1IGRvCiAgYmVnaW4KICAgIGlmIEFbaV0gPCBBW21pbklkeF0gdGhlbiBtaW5JZHggOj0gaTsKICAgIGlmIEFbaV0gPiBBW21heElkeF0gdGhlbiBtYXhJZHggOj0gaTsKICBlbmQ7CiAgdGVtcCA6PSBBW21pbklkeF07CiAgQVttaW5JZHhdIDo9IEFbbWF4SWR4XTsKICBBW21heElkeF0gOj0gdGVtcDsKICBmb3IgaSA6PSAxIHRvIDE1IGRvCiAgICBXcml0ZShBW2ldOjUpOwogIFdyaXRlbG47CmVuZC4K

dmFyCiAgQSA6IGFycmF5WzEuLjE1XSBvZiBJbnRlZ2VyOwogIGksIG1pbklkeCwgbWF4SWR4LCB0ZW1wIDogSW50ZWdlcjsKYmVnaW4KICBSYW5kb21pemU7CiAgZm9yIGkgOj0gMSB0byAxNSBkbwogIGJlZ2luCiAgICBBW2ldIDo9IFJhbmRvbSgxNTApIC0gNTA7CiAgICBXcml0ZShBW2ldOjUpOwogIGVuZDsKICBXcml0ZWxuOwogIG1pbklkeCA6PSAxOwogIG1heElkeCA6PSAxOwogIGZvciBpIDo9IDIgdG8gMTUgZG8KICBiZWdpbgogICAgaWYgQVtpXSAmbHQ7IEFbbWluSWR4XSB0aGVuIG1pbklkeCA6PSBpOwogICAgaWYgQVtpXSAmZ3Q7IEFbbWF4SWR4XSB0aGVuIG1heElkeCA6PSBpOwogIGVuZDsKICB0ZW1wIDo9IEFbbWluSWR4XTsKICBBW21pbklkeF0gOj0gQVttYXhJZHhdOwogIEFbbWF4SWR4XSA6PSB0ZW1wOwogIGZvciBpIDo9IDEgdG8gMTUgZG8KICAgIFdyaXRlKEFbaV06NSk7CiAgV3JpdGVsbjsKZW5kLgo=

var
  A : array[1..15] of Integer;
  i, minIdx, maxIdx, temp : Integer;
begin
  Randomize;
  for i := 1 to 15 do
  begin
    A[i] := Random(150) - 50;
    Write(A[i]:5);
  end;
  Writeln;
  minIdx := 1;
  maxIdx := 1;
  for i := 2 to 15 do
  begin
    if A[i] < A[minIdx] then minIdx := i;
    if A[i] > A[maxIdx] then maxIdx := i;
  end;
  temp := A[minIdx];
  A[minIdx] := A[maxIdx];
  A[maxIdx] := temp;
  for i := 1 to 15 do
    Write(A[i]:5);
  Writeln;
end.