sub solucion{
print "Ingrese el tamaño del array: ";
my $n=(gets.chomp).to_i
$arreglo = []
for (x in 1..n){
print "Ingresa un valor:";
$valor = gets.to_i;
$arreglo << $valor;
}
}
return arreglo;
sub retornar_mayormenor{
$ma = $arreglo[0];
$me = $arreglo[0];
$arreglo.each do |elemento|
if (elemento > ma){
ma = elemento
elsif elemento < me
me = elemento
}
print "\nEl numero mayor se repite: #{arreglo.count(ma)}";
print "El numero menor se repite: #{arreglo.count(me)}";
return [ma, me];
}
$arreglo = $solucion;
$rango = retornar_mayormenor arreglo;
print "\nMayor elemento del arreglo: #{rango[0]} ";
print "Menor elemento del arreglo: #{rango[1]} ";