Nhập vào 1 mạng gồm N số nguyên. Tính và đưa ra Trung bình cộng của giấy số

program tbc;

uses crt;

var A:array[1..10000] of integer;

      n,i:integer;

      s:longint;

begin

clrscr;

write('Nhap so luong phan tu N: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

s:=0;

for i:=1 to n do

 begin

  write('Phan tu thu ',i,'= ');

  readln(A[i]);

  s:=s+A[i];

 end;

write('trung binh cong cua day so la: ',s/n:2:2);

readln

end.

program ct;

uses crt;

var n,i,S:integer;

      TBC:real;

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

begin

clrscr;

write('nhap n='); 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

begin

   S:=S+A[i];

   TBC:=S/n;

end;

writeln('trung binh cong la',TBC:2:3);

readln

end.