#! /usr/bin/perl

#Srednia wartosc elementow
#Dominik Gozdziuk
#www.algorytm.org

#Pobieramy liczbe elementow od uzytkownika
print "Podaj liczbe elementow: ";
$n = <STDIN>;
chomp($n);

$suma = 0;

for ($i = 1; $i <= $n; $i++) {
        #Pobieramy kolejne liczby
        print "Podaj liczbe: ";
        $tmp = <STDIN>;
        chomp($tmp);
        #Kazda liczbe dodajemy do sumy
        $suma += $tmp;
}

#Dzielimy sume przez liczbe elementow
$srednia = $suma / $n;
#Wyswietlamy wynik
print "\nSrednia podanych liczb wynosi: $srednia\n";