program three;

const
    MAXN = 15;

var
    a: array[1..MAXN] of integer;
    minpos, maxpos, min, max, i, temp: integer;

begin
    minpos := 1;
    min := a[1];
    maxpos := 1;
    max := a[1];
    randomize();

    writeln('initial array');
    for i := 1 to MAXN do
    begin
        a[i] := random(900)+100;
        wrtie(a, ' ');
    end;

    for i := 1 to MAXN do
    begin
        if a[i] < min then
        begin
            min := a[i];
            minpos := i;
        end;
        if a[i] > max then
        begin
            max := a[i];
            maxpos := i;
        end;
    end;

    temp := a[minpos];
    a[minpos] := a[maxpos];
    a[maxpos] := temp;

    writeln('reodered array');
    for i := 1 to MAXN do
    begin
        wrtie(a, ' ');
    end;
end.