Determine the mean : Array Value « Array « Perl

1. Perl
2. Array
3. Array Value

Determine the mean

    

@opinions = ( 8, 9, 4, 7, 8, 5, 6, 4, 9, 9, 
              6, 7, 3, 4, 8, 7, 9, 8, 9, 2  );


$total = 0;

foreach ( @opinions ) {
   $total += $_;
}

print $total;



@opinions = ( 8, 9, 4, 7, 8, 5, 6, 4, 9, 9, 
              6, 7, 3, 4, 8, 7, 9, 8, 9, 2  );

# determine the mean
$total = 0;

foreach ( @opinions ) {
   $total += $_;
}

$mean = $total / @opinions;
print "Survey mean result:   $mean\n";

   
    
    
    
  

Related examples in the same category