明解Ｃ言語 入門編 > 6. 関数 > 配列の受け渡し Perl $NINSU = 5; sub max_of { (@vc) = @_; $no = $vc[0]; $max = $vc[1]; for (2..$no + 1) { $max = $vc[$_] if ($vc[$_] > $max); } return $max; } print "$NINSU人の点数を入力してください。\n"; for (…