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