2.12

Program task212;

Var
    a: array [1..8] of Integer = (11, 2, 1, 6, 10, 20, 5, 3);
    a_new: array [1..6] of Integer;
    i, i_min, i_max, offset: Integer;

Begin
    Write('a = { ');
    for i := 1 to length(a) do
        Write(a[i], ' ');
    Writeln('}');

    i_min := 1;
    i_max := 1;
    for i := 2 to length(a) do begin
        if a[i] < a[i_min] then
            i_min := i;
        if a[i] > a[i_max] then
            i_max := i;
    end;

    offset := 0;
    for i := 1 to length(a) do begin
        if (i = i_min) or (i = i_max) then begin
            inc(offset);
            continue;
        end;
        a_new[i - offset] := a[i];
    end;

    Writeln('Min: ', a[i_min]);
    Writeln('Max: ', a[i_max]);
    Write('a_new = { ');
    for i := 1 to length(a_new) do begin
        Write(a_new[i], ' ');
    end;
    Writeln('}');

    ReadLn;
End.