Program ChangeMinMax;
Uses Crt;
Var
  A : array[1..15] of Integer;
  i, minIdx, maxIdx, temp : Integer;
Begin
  ClrScr;
  Randomize;
  For i := 1 to 15 do
  Begin
    A[i] := Random(100)  -(-14);
    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;
  Readln;
End.
 
 
 
 

UHJvZ3JhbSBDaGFuZ2VNaW5NYXg7ClVzZXMgQ3J0OwpWYXIKICBBIDogYXJyYXlbMS4uMTVdIG9mIEludGVnZXI7CiAgaSwgbWluSWR4LCBtYXhJZHgsIHRlbXAgOiBJbnRlZ2VyOwpCZWdpbgogIENsclNjcjsKICBSYW5kb21pemU7CiAgRm9yIGkgOj0gMSB0byAxNSBkbwogIEJlZ2luCiAgICBBW2ldIDo9IFJhbmRvbSgxMDApICAtKC0xNCk7CiAgICBXcml0ZShBW2ldOjUpOwogIEVuZDsKICBXcml0ZWxuOwogIG1pbklkeCA6PSAxOwogIG1heElkeCA6PSAxOwogIEZvciBpIDo9IDIgdG8gMTUgZG8KICBCZWdpbgogICAgaWYgQVtpXSA8IEFbbWluSWR4XSB0aGVuIG1pbklkeCA6PSBpOwogICAgaWYgQVtpXSA+IEFbbWF4SWR4XSB0aGVuIG1heElkeCA6PSBpOwogIEVuZDsKICB0ZW1wIDo9IEFbbWluSWR4XTsKICBBW21pbklkeF0gOj0gQVttYXhJZHhdOwogIEFbbWF4SWR4XSA6PSB0ZW1wOwogIEZvciBpIDo9IDEgdG8gMTUgZG8KICAgIFdyaXRlKEFbaV06NSk7CiAgV3JpdGVsbjsKICBSZWFkbG47CkVuZC4KCgoK