#Sortowanie przez wybor
#Dominik Gozdziuk
#www.algorytm.org

print "Podaj wielkosc tablicy: ";
$n = <STDIN>;
chomp($n);

@tab = ();

for ($i=0; $i<$n; $i++) {
	print "Podaj liczbe: ";
	$liczba = <STDIN>;
	chomp($liczba);
	$tab[$i] = $liczba;
}

print "Tablica nieposortowana: @tab\n";

for ($i=0; $i<$n; $i++) {
	$min = $i;
	for ($j=$i+1; $j<$n; $j++) {
		if ($tab[$min] > $tab[$j]) {
			$min = $j;
		}
	}
	$tmp = $tab[$i];
	$tab[$i] = $tab[$min];
	$tab[$min] = $tmp;
}

print "Tablica posortowana: @tab\n";
$a = <STDIN>;