#! /usr/bin/perl

# szukanie elementu w tablicy
# Dominik Gozdziuk
# www.algorytm.org

@tab = (5,65,34,67,9,46,78,7,45,90,56,83,27);

print "Tablica: ";

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

print "\nPodaj szukany element: ";
$szukana = <STDIN>;
chomp($szukana);

$ok = 0;

foreach $zmienna (@tab) {
        if ($szukana == $zmienna) {
                $ok = 1;
                break;
        }
}

if ($ok == 1) {
        print "Szukany element znajduje sie w tablicy\n";
}
else {
        print "Szukany element nie znajduje sie w tablicy\n";
}