#!/usr/local/bin/perl -w 
# 
$x_odd = 1; $x_sum = 0; 
 
 
# Main program starts here 
print "Please enter up to 10 random numbers. When you are done\n"; 
print "type quit, and let this Perl program do its magic. ^_^\n"; 
print "\n\n"; 
print "Number: "; 
 
 
 
while ($x = <STDIN>) { 
   if ($x == "\n") { 
       $z = @numbers; 
       print "count equals $z"; 
      foreach $x (@numbers) { 
        ($x %2 == 0) ? $x_sum += $x : $x_odd *= $x; 
      print "$x, $x_odd, $x_sum\n" } 
      print "sum = $x_sum, prod = $x_odd\n"; 
      exit; 
   } 
   chomp ($x); 
   push (@numbers, $x); 
} 
 
 
#while ($number = <STDIN>) { 
#  print "Number: "; 
 # chomp($number); 
# # # #   if ($number-2*int($number/2) == 0) { 
      #$even += $number; 
     #   } elsif (abs($number-2*int($number/2)) == 1) { 
        #abs reutrns the absolute value of its argument 
     # $odd *= $number; 
  # } 
   #  } 
 
#print "Your numbers are: $number"; 
#print "\n\n The odd numbers multipled would be: $odd"; 
#print "\n\n The even numbers sum is: $even"; 
;

#!/usr/local/bin/perl -w 
# 
# 
# Main program starts here 
print "Please enter up to 10 random numbers. When you are done\n"; 
print "type quit, and let this Perl program do its magic. ^_^\n"; 
print "\n\n"; 
print "Number: "; 
 
while ($numbers = <STDIN>) { 
        print "Numbers: ";                  					   	    #Printing Name again to look pretty 
        if ($numbers eq "quit") { 
         #  } foreach $numbers ($do_math) { 
     	print "The numbers you entered where $numbers\n"; 
	    print "The sum of the even numbers are $odd\n"; 
	    print "The odd numbers nuiltiplied are $even\n"; 
            } 
      } 
 
 
sub math { 
 
	my ($math); 
    $odd =1; $even =0; 
    foreach $numbers (@number) { 
    ($numbers %2 == 0) ? $odd += $numbers : $even *= $numbers; 
    } 
    return $math; 
    }

# Main program starts here 
my(@number, $numbers); 
 
print "Please enter up to 10 random numbers,\n"; 
print "and let this Perl program do its magic. ^_^\n"; 
print "\n\n"; 
 
$amount = 0; 
 
   do { 
 
      $amount++; 
 
      print"Number: "; 
 
      chomp($numbers = <STDIN>); 
 
      if ($numbers) { 
         push (@number, $numbers); 
      } 
 
    } until $amount >= 10;  { 
 
        &math 
} 
 
 
 
 
sub math { 
 
 
 
$even =1; 
 
    	foreach $thisnumber (@number) { 
 
      #	($thisnumber %2 == 0) ? $odd += $thisnumber : $even *= $thisnumber; 
 
   if ($thisnumber-2*int($thisnumber/2) == 0) { 
      $odd += ($thisnumber); 
      print "$thisnumber is even\n"; 
    } elsif (abs($thisnumber-2*int($thisnumber/2)) == 1) { 
      $even *= ($thisnumber); 
      print "$thisnumber is odd\n"; 
    } 
 
 
	} 
    		print "\n\nAll numbers entered were @number\n\n"; 
 
    		print "odd numbers added are = $odd\n\n"; 
    		print "even numbers muiltiplied are = $even\n\n"; 
 
   }