LCM

my @vec;
my @temp;
my $sw = 1;
my $mayor = 0;
my $verdad = 1;



print "Ingres el numero de elementos";
$n = <STDIN>;



for($i = 0; $i < $n ; $i++){
    $vec[$i] = <STDIN>;
}




while(1){

    for($i = 0; $i < $n ;  $i++){
        for($j = 0; $j < $n-1 ; $j++){
            if($vec[$j] > $vec[$j+1]){
                $aux = $vec[$j];
                $vec[$j] = $vec[$j+1];
                $vec[$j+1] = $aux;
                $aux = $temp[$j];
                $temp[j] = $temp[$j+1];
                $temp[$j+1] = $aux;
            }
        }
    }







    if($sw == 1){
        for($i = 0 ; $i < $n; $i++){
            $temp[$i] = $vec[$i];
        }
    }
    $sw = 2;


    for($i = 0; $i <$n ; $i++){
        if($vec[$i] > $mayor){
            $mayor = $vec[$i];
        }
    }



    for($i = 0; $i < $n-1 ; $i++){
        if($vec[$i] != $mayor){

            $vec[$i] = $vec[$i] + $temp[$i];
        }
    }





    if($vec[0] == $vec[$n-1]){
        $resultado = $vec[0];
        last;
    }






}


print $resultado;

getc();