use strict;
use warnings;
use MT::Entry;
my @points;
$points[0] = 75;
$points[1] = 69;
$points[2] = 58;
$points[3] = 81;
$points[4] = 69;
$points[5] = 54;
$points[6] = 47;
$points[7] = 62;
$points[8] = 55;
$points[9] = 73;
$points[10] = 59;
my $sum = 0;
my $count = scalar(@points);
for (my $i = 0; $i < $count; $i++) {
$sum += $points[$i];
}
my $avg = $sum / $count;
print "平均は $avg です。";