#include <stdio.h>
#include <math.h>

/* Estadístico.
El programa, al recibir como dato un arreglo unidimensional de enteros
➥que contiene calificaciones, calcula la media, la varianza, la
➥desviación estándar y la moda. */

#define MAX 100

void Lectura(int*, int);
void Frecuencia(int*, int, int*);

float Media(int*, int);
float Varianza(int*, int, float); /* Prototipos de funciones. */
float Desviacion(float);

int Moda(int*, int);

void main(void)
{
	int TAM, MOD, ALU[MAX], FRE[11] = { 0 };
	float MED, VAR, DES;
	do
	{
		printf("Ingrese el tamaño del arreglo: ");
		scanf("%d", &TAM);

	} while (TAM > MAX || TAM < 1);
	/* Se verifica que el tamaño del arreglo sea correcto. */
	
	Lectura(ALU, TAM);
	MED = Media(ALU, TAM);
	VAR = Varianza(ALU, TAM, MED);
	DES = Desviacion(VAR);

	Frecuencia(ALU, TAM, FRE);
	MOD = Moda(FRE, 11);

	printf("\nMedia: %.2f", MED);
	printf("\nVarianza: %.2f", VAR);
	printf("\nDesviacion: %.2f", DES);
	printf("\nModa: %d", MOD);
}

void Lectura(int A[], int T)
/* La función Lectura se utiliza para leer un arreglo unidimensional de T
➥elementos de tipo entero. */
{
	int I;
	for (I = 0; I < T; I++)
	{
		printf("Ingrese el elemento %d: ", I + 1);
		scanf("%d", &A[I]);
	}
}

float Media(int A[], int T)
/* Esta función se utiliza para calcular la media. */
{
	int I;
	float SUM = 0.0;
	for (I = 0; I < T; I++)
		SUM += A[I];
	return (SUM / T);
}

float Varianza(int A[], int T, float M)
/* Esta función se utiliza para calcular la varianza. */
{
	int I;
	float SUM = 0.0;
	for (I = 0; I < T; I++)
		SUM += pow((A[I] - M), 2);
	return (SUM / T);
}

float Desviacion(float V)
/* Esta función se utiliza para calcular la desviación estándar. */
{
	return (sqrt(V));
}

void Frecuencia(int A[], int P, int B[])
/* Esta función se utiliza para calcular la frecuencia de calificaciones.
*/
{
	int I;
	for (I = 0; I < P; I++)
		B[A[I]]++;
}

int Moda(int A[], int T)
/* Esta función se utiliza para calcular la moda. */
{
	int I, MOD = 0, VAL = A[0];
	for (I = 1; I < T; I++)
		if (MOD < A[I])
		{
			MOD = I;
			VAL = A[I];
		}
	return (MOD);
}