Me piden calcular la moda, media, mediana de un arreglo.
Las 2 últimas las tengo hechas, pero no sé cómo sacar la moda.
Adjunto lo que llevo:
Using perl Syntax Highlighting
#!/usr/bin/perl
print"Ingrese el largo del arreglo"."\n";
$n=<stdin>;
print"Ingrese los datos del arreglo y presione ENTER"."\n";
for($i=0;$i<$n;$i++)
{
$DAT[$i]=<stdin>;
}
if(($n/2)==int($n/2))
{
$k=$n/2;
print"Los digitos centrales son:"."\n";
chop ($DAT[$k]);
print"$DAT[$k]"."\n";
chop ($DAT[$k-1]);
print"$DAT[$k-1]"."\n";
}
else
{
print"El digito central es:"."\n";
print"$DAT[($n-1)/2]";
}
$sum=0;
for($i=0;$i<=$n;$i++)
{
$sum=$sum+$DAT[$i];
}
$prom=$sum/$n;
print"El promedio de los datos en el arreglo es = $prom\n";
print"Ingrese el largo del arreglo"."\n";
$n=<stdin>;
print"Ingrese los datos del arreglo y presione ENTER"."\n";
for($i=0;$i<$n;$i++)
{
$DAT[$i]=<stdin>;
}
if(($n/2)==int($n/2))
{
$k=$n/2;
print"Los digitos centrales son:"."\n";
chop ($DAT[$k]);
print"$DAT[$k]"."\n";
chop ($DAT[$k-1]);
print"$DAT[$k-1]"."\n";
}
else
{
print"El digito central es:"."\n";
print"$DAT[($n-1)/2]";
}
$sum=0;
for($i=0;$i<=$n;$i++)
{
$sum=$sum+$DAT[$i];
}
$prom=$sum/$n;
print"El promedio de los datos en el arreglo es = $prom\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Me decían que ordenara los datos del arreglo (en mi caso son números), y luego comparar los números ingresados en el arreglo... pero no sé cómo hacerlo, por favor, ayuda