Uses Crt;
Var i,n,s:integer; tbc:real;
A:array[1..1000] of integer;
Begin
Clrscr;
Write('Nhap n so nguyen vao:'); Readln(n);
For i:=1 to n do
Begin
Write('Nhap A[',i,']:='); Readln(A[i]);
End;
S:=0;
For i:=1 to n do
Begin
S:=S+A[i];
tbc:=S/n;
End;
Writeln;
Write('Trung binh cong cua n so nguyen la:',tbc:2:2);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thanks trước :D

program im_14424;

uses crt;

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

i,n: integer;

tbc: real;

begin 

clrscr;

writeln('Nhap vao n: ');

read(n);

s:=0;

for i:=1 to n do

begin

write('Nhap A[',i,']=');

readln(A[i]);

end;

s:=s+A[i];

tbc:=s/n;

end;

writeln('Trung binh cong la: ',tbc:5:2);

readln

end.