program maxmin;
var
    n, i, minval, maxval: integer;
    a: array[1..100] of integer;
    min_positions, max_positions: array[1..100] of integer;
    min_count, max_count: integer;

begin
    assign(input, 'maxmin.inp'); reset(input);
    assign(output, 'maxmin.out'); rewrite(output);
    
    readln(n);
    for i := 1 to n do
        read(a[i]);
    minval := a[1];
    maxval := a[1];
    
    for i := 2 to n do
    begin
        if a[i] < minval then
            minval := a[i];
        if a[i] > maxval then
            maxval := a[i];
    end;
    
    min_count := 0;
    max_count := 0;
    for i := 1 to n do
    begin
        if a[i] = minval then
        begin
            inc(min_count);
            min_positions[min_count] := i;
        end;
        if a[i] = maxval then
        begin
            inc(max_count);
            max_positions[max_count] := i;
        end;
    end;
    
    for i := 1 to min_count do
        write(min_positions[i], ' ');
    writeln;
    for i := 1 to max_count do
        write(max_positions[i], ' ');
    writeln;
    
    close(input); close(output);
end.