Ex 1 J y G

Run Settings
LanguagePerl
Language Version
Run Command
class Arreglos def solucion(); $n=0; $c=0; print "Ingrese tamaño de array: "; $n=(gets.chomp).to_i $arregloa = []; $arreglob = []; for ($x in 1..n){ print "Ingrese valor de a:" $a = gets.to_i $arregloa << a } for $(x in 1..n){ print "Ingrese valor de b:" $b = gets.to_i $arreglob << $b } print "Valores del arreglo a: ",arregloa. "\n" print "Valores del areeglo b: ",arreglob. "\n" $c= arregloa - arreglob print "Valores que se encuentran en a pero no en b: ", $c } } obj = Arreglos.new obj.solucion()
Editor Settings
Theme
Key bindings
Full width
Lines