Viết chương trình nhập dãy n số nguyên in ra tổng và trung bình cộng các phần tử có trong dãy.

program ct;

uses crt;

var n,i,s:integer;    TBC:real;

A:array[1..100] of integer;

begin

clrscr;

write('nhap cac phan tu:=');readln(n);

for i:=1 to n do

begin

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

end;

s:=0;

for i:=1 to n do s:=s+a[i];

writeln('tong la:',s);

TBC:=s/n;

writeln('trung binh cong cua cac phan tu la:=',TBC:2:2);

readln;

end.

uses crt;
var A:array[1..1000] of integer;
    n,i,tong:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      tong:=tong+A[i];
   end;
   write('Tong la: ',tong);
   writeln;
   write('Trung binh cong la: ',tong/n:4:2);
   readln
end.