    use warnings;
    use Data::Dumper;
    use List::Util qw(max min);
    # use Statistics::Lite qw(max min sum);
    
    sub GetInputData{
    
        my @array_data;
    
        my $line = <STDIN>;
    
        chomp($line);
    
        while($line ne ""){
    
           push(@array_data,$line);
    
           $line = <STDIN>;
    
           chomp($line);
    
    }
    
        return @array_data;
    
    }
    
    sub GetSpaceInputData{
    
        my @array_temp=GetInputData();
    
        my @array_buf;
    
        foreach(@array_temp){
    
            #戻りは配列スペース区切りを分解
            # myを先頭につける必要あり
            my @array_work=split(" ",$_);

            # print "@array_work";
    
            # リファレンスを配列に代入
            push(@array_buf,\@array_work);
        }
    
        return @array_buf;
    
    }
    
    my @arr_result = GetSpaceInputData();

    my $n = $arr_result[0][0];
    my $arr = $arr_result[1];

    my $mysum= eval join '+',@$arr;

    my $myave=$mysum/$n;
    my @arr_data= map{abs($_ - $myave)} @$arr;

    my $mindata= min @arr_data;

    my @result = grep { $arr_data[$_] == $mindata } 0 .. $#arr_data;
    
    print $result[0];    use warnings;
    use Data::Dumper;
    use List::Util qw(max min);
    # use Statistics::Lite qw(max min sum);
    
    sub GetInputData{
    
        my @array_data;
    
        my $line = <STDIN>;
    
        chomp($line);
    
        while($line ne ""){
    
           push(@array_data,$line);
    
           $line = <STDIN>;
    
           chomp($line);
    
    }
    
        return @array_data;
    
    }
    
    sub GetSpaceInputData{
    
        my @array_temp=GetInputData();
    
        my @array_buf;
    
        foreach(@array_temp){
    
            #戻りは配列スペース区切りを分解
            # myを先頭につける必要あり
            my @array_work=split(" ",$_);

            # print "@array_work";
    
            # リファレンスを配列に代入
            push(@array_buf,\@array_work);
        }
    
        return @array_buf;
    
    }
    
    my @arr_result = GetSpaceInputData();

    my $n = $arr_result[0][0];
    my $arr = $arr_result[1];

    my $mysum= eval join '+',@$arr;

    my $myave=$mysum/$n;
    my @arr_data= map{abs($_ - $myave)} @$arr;

    my $mindata= min @arr_data;

    my @result = grep { $arr_data[$_] == $mindata } 0 .. $#arr_data;
    
    print $result[0];