配列の要素に値を読み込む (#define)

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

配列の要素に値を読み込む (#define)

Perl

use constant NINSU => 5;

$sum = 0;

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

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

printf("合計点%d\n", $sum);
printf("平均点%f\n", $sum / NINSU);

実行結果

L:\>perl lesson_05_035.pl

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

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000