#!/usr/bin/perl -w
# pic 3.14: exer03_11.pl
# Расчет среднего, максимального и минимального числа

# Этап инициализации

$AllNumber = 0;
$Count = 1;
$CountNumber = 0;


# Этап ввода значений
print "\nHow much numbers you shall input?: ";
chomp ( $AllNumber = <STDIN> );
if ($AllNumber == 0)
{
   print "Good by";
}
else
{
   print "Input next number: ";
   chomp ( $Number = <STDIN> );
   $MaxNumber = $Number;
   $MinNumber = $Number;
   while ( $AllNumber > $Count )
   {
      print "Input next number: ";
      chomp ( $Number = <STDIN> );
      $CountNumber += $Number;
      if ( $Number > $MaxNumber )
      {
         $MaxNumber = $Number;
      }
      elsif ( $Number < $MinNumber )
      {
         $MinNumber = $Number;
      }
      ++$Count;
   }

   $CountNumber /= $AllNumber;
# Максимальное, минимальное и среднее для N чисел
   print "In all $AllNumber numbers.\n";
   print "Max number is $MaxNumber.\n";
   print "Min Number is $MinNumber.\n";
   print "Average is $CountNumber.\n";
}