uses crt;
var a:array[1..100]of integer;
i,n,t,dem,kt,j:integer;
tbc:real;
begin
clrscr;
write('n='); readln(n);
if (1<=n) and (n<=100) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;

viết chương trình nhập vào độ dài của dãy số tính tổng các số vừa nhập sau đó in tổng trung bình của dãy số

độ dài của dãy số cũng được nhập vào từ bàn phím

uses crt;
var a:array[1..100]of longint;
n,s,i:longint;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
s:=s+a[i];
end;
writeln('tong :',s);
writeln('tong trung binh: ',s/n:3:2);
readln
end.
//khoadang09
//#hđ247