Program TableauExercice01;

Const
	N = 10;

Var 
    t : Array [1..N] of Integer;
    i, somme : Integer;
    moy : 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]);
		
	somme := 0;
	
	For i := 1 to N Do
		somme := somme + t[i];
		
	moy := somme / N;
	
	WriteLn('La somme est ', somme);
	WriteLn('La moyenne est ', moy:5:2);
	
End.