uses crt;

var a:array[1..100]of real;

i,n:integer;

t:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln('Tong cua day la: ',t:4:2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.
#@NguyenManhThaiCong

uses crt;

var a: array[1..100] of integer;

i,n,tong,tich: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

tong:=0;

tich:=1;

for i:=1 to n do

begin

write ('a[',i,']= ');  readln (a[i]);

tong:=tong+a[i];

tich:=tich*a[i];

end;

writeln ('Tong: ',tong);

writeln ('Tich: ',tich);

writeln ('Trung binh: ',tong/n:1:2);

readln;

end.

$#Trumtinhoc$