Program TableauExercice07;

Const
	N = 10;

Var 
    t : Array [1..N] of Integer;
    i, somme : Integer;
    moy, variance : Real;

Begin
	{ Lecture des éléments d'un tableau }
	{ Vous devez toujours mettre cette boucle même si elle n'est pas mentionnée }
	
	WriteLn('Donnez ', N, ' éléments :');
	For i := 1 to N Do
		ReadLn(t[i]);
	
	{ on commence par calculer la moyenne }
	somme := 0;
	
	For i := 1 to N Do
		somme := somme + t[i];
		
	moy := somme / N;
	
	{ Le calcul de la variance }
	variance  := 0;
	
	For i := 1 to N Do
		variance := variance + (t[i] - moy) * (t[i] - moy);
		
	variance := variance / N;
	
	WriteLn('La variance est : ', variance:5:2);
	
End.