Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
print "ile liczb?";
$n =
chomp ($n);
for ($i = 0 ; $i <= $n - 1 ; $i = $i + 1 )
{
$z = $i + 1;
print "wprowadz $z liczbe ";
$f =
@lista = ( @lista , $f) ;
}
@lista2 = sort ( {$a <=> $b} @lista ) ;
print "najmniejsza:\n";
print $lista2[0];
x =