５人の点数を読み込んで合計点と平均点を表示

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

５人の点数を読み込んで合計点と平均点を表示

Perl

print "点数を入力してください。\n";
print "１番：";
chomp($score1 = <>);

print "２番：";
chomp($score2 = <>);

print "３番：";
chomp($score3 = <>);

print "４番：";
chomp($score4 = <>);

print "５番：";
chomp($score5 = <>);

$sum = 0;
$sum += $score1;
$sum += $score2;
$sum += $score3;
$sum += $score4;
$sum += $score5;

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

実行結果

L:\>perl lesson_05_029.pl

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

１番：95

２番：83

３番：85

４番：63

５番：89

合計点415

平均点83.000000