配列の要素に値を読み込む (代入式)

明解Ｃ言語 入門編 > 5. 配列 >

配列の要素に値を読み込む (代入式)

Perl

$sum = 0;

print "点数を入力してください。\n";

for (0..4)
{
    printf("%d番：", $_ + 1);
    chomp($score[$_] = <>);
    $sum += $score[$_];
}

$min = $max = $score[0];

foreach $s(@score)
{
    $min = $s if ($s < $min);
    $max = $s if ($s > $max);
}

printf("最低点%d\n", $min);
printf("最高点%d\n", $max);
printf("合計点%d\n", $sum);
printf("平均点%f\n", $sum / 5);

実行結果

L:\>perl lesson_05_036.pl

点数を入力してください。

1番：17

2番：38

3番：52

4番：41

5番：63

最低点17

最高点63

合計点211

平均点42.200000