#! /usr/bin/perl

#Szukanie elementu minimalnego/maksymalnego w tablicy
#Dominik Gozdziuk
#www.algorytm.org

@tab = (6,4,65,34,67,89,45,7,35,79,23,56,87,12,38,9);

print "Tablica: ";
$min = $tab[0];
$max = $tab[0];

foreach $zmienna (@tab) {
        print "$zmienna  ";

        if ($min > $zmienna) {
                $min = $zmienna;
        }
        if ($max < $zmienna) {
                $max = $zmienna;
        }
}

print "\nNajmniejszy element tablicy to: $min\n";
print "Najwiekszy element tablicy to: $max\n";