Mega Code Archive

 

Categories / Perl / Array

 

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";