#!/usr/bin/perl
#--------------------------------------------------------------------------------------------------------
#
# @Author: breek
# @Code: CalcMedia.pl
# @Version: 0.1.0
# @Date: 21/02/2012
#
#--------------------------------------------------------------------------------------------------------

#=================================================#
# Este script calcula a média de varios valores.
#=================================================#

use strict;
use warnings;

my $Quantidade;
my $Contador;   #Incremento: (1+1)
my $Valor;
my $Soma;
my $Media;

# Receber a [quantidade de numeros] #
print "Quantos valores sarao calculados: ";
$Quantidade = <>;
chomp $Quantidade;
system ( "cls" );


# for() - mesmo estilo do C #
# Somando valores #
for( $Contador = 1; $Contador <= $Quantidade; $Contador++ )
{
   print "Digite o valor: ";
   $Valor = <>;
   chomp $Valor;
   
   $Soma += $Valor; # Soma = Soma + Valor #
   
   system( "cls" );
}

#Calculo da media #
$Media = $Soma / $Quantidade;

# Mostrando resultado. Finalizando #
print "\n";
print "A soma e: $Soma \n";
print "A media e: $Media \n";

exit;