Program Som_Produit_MoyArith;
Type Tab = Array [1..10] of Integer;
Var T : Tab ; n, i, st : Integer;
mt, pt : Real;
Begin
Repeat
Writeln ('N = ');
Readln (n);
Until
(n>5) and (n<=10);
For i := 1 To n Do
Repeat
Write ('T', i, ' = ');
Readln (T[i]);
Until (1<= T[i]) and (T[i] <= 20);
st := 0;
pt := 1;
For i := 1 To n Do
Begin
St := st + T[i];
Pt := pt * T[i];
End ;
Writeln ('Somme = ', st);
Writeln ('Produit = ', trunc (pt));
Writeln ('Moyenne arithmétique = ', st/n:2:2);
End.

UHJvZ3JhbSBTb21fUHJvZHVpdF9Nb3lBcml0aDsKVHlwZSBUYWIgPSBBcnJheSBbMS4uMTBdIG9mIEludGVnZXI7ClZhciBUIDogVGFiIDsgbiwgaSwgc3QgOiBJbnRlZ2VyOwptdCwgcHQgOiBSZWFsOwpCZWdpbgpSZXBlYXQKV3JpdGVsbiAoJ04gPSAnKTsKUmVhZGxuIChuKTsKVW50aWwKKG4+NSkgYW5kIChuPD0xMCk7CkZvciBpIDo9IDEgVG8gbiBEbwpSZXBlYXQKV3JpdGUgKCdUJywgaSwgJyA9ICcpOwpSZWFkbG4gKFRbaV0pOwpVbnRpbCAoMTw9IFRbaV0pIGFuZCAoVFtpXSA8PSAyMCk7CnN0IDo9IDA7CnB0IDo9IDE7CkZvciBpIDo9IDEgVG8gbiBEbwpCZWdpbgpTdCA6PSBzdCArIFRbaV07ClB0IDo9IHB0ICogVFtpXTsKRW5kIDsKV3JpdGVsbiAoJ1NvbW1lID0gJywgc3QpOwpXcml0ZWxuICgnUHJvZHVpdCA9ICcsIHRydW5jIChwdCkpOwpXcml0ZWxuICgnTW95ZW5uZSBhcml0aG3DqXRpcXVlID0gJywgc3QvbjoyOjIpOwpFbmQu

NgoxCjMKNgo3CjkKOA==

6
1
3
6
7
9
8