PDA

Orijinalini görmek için tıklayınız : Perl Dilinde Sayi Ortalaması Nasıl Alınır?



optimusprime
11.Aralık.2014, 07:49
Sayıların aralarini Bos Birakarak Ya Da Virgul Koyarak İstediginiz Kadar Sayi Girebilirsiniz


Kod:
$_=<STDIN>; chomp;
@sayilar=split(/[\s,]/, $_);
$a=0;
foreach(@sayilar) {
$a=$a+$_;
}
print $a/(scalar(@sayilar)),"\n";
exit;