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

/* Suma-cuadrados.
El programa calcula la suma del cuadrado de los elementos de un arreglounidimensional de 100 elementos de tipo real. */

#define MAX  100
/* MAX se utiliza para reservar el espacio máximo que podrá ocupar el arreglo. */

void Lectura(float*, int); /* Prototipos de funciones. */
double Suma(float*, int);

void main(void)
{
	float VEC[MAX];
	double RES;
	Lectura(VEC, MAX);
	RES = Suma(VEC, MAX);
	/* Se llama a la función Suma y se almacena el resultado en la variable RES. */
	
	printf("\n\nSuma del arreglo: %.2lf", RES);
}
void Lectura(float A[], int T)
/* La función Lectura se utiliza para leer un arreglo unidimensional de T
➥elementos de tipo real. */
{
	int I;
	for (I = 0; I < T; I++)
	{
		printf("Ingrese el elemento %d: ", I + 1);
		scanf("%f", &A[I]);
	}
}
double Suma(float A[], int T)
/* La función Suma se utiliza para calcular la suma del cuadrado de los
➥componentes de un arreglo unidimensional de T elementos de tipo real. */
{
	int I;
	double AUX = 0.0;
	for (I = 0; I < T; I++)
		AUX += pow(A[I], 2);
	return(AUX);
}