use strict; use warnings; use feature qw/say/; # https://yukicoder.me/problems/746 my $N = <>; my $A = <>; chomp ($N,$A); # 数値としてのソートが必要 my @a = sort { $a <=> $b } ( split / /, $A ); my $index = int( $N / 2 ); # 与えられる数が偶数か奇数で分ける if ( $N % 2 == 0 ) { # 偶数 my $central_sum = $a[$index - 1] + $a[$index]; say $central_sum / 2; } else { # 奇数 say $a[$index]; }