Uses crt;
Var a:array[1..1000]of integer;
i,n,tbc:integer;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
Tbc:=0;
Writeln;
Write(' Trung binh cong cua mang do la: ');
For i:=1 to n do tbc:=tbc+a[i];
Write(tbc/n:3:2);
Readln;
End.
*Nhớ tick và chọn làm c/tr/loi hay nhất giúp mình với nhế! Thanks :33
* Hỏi gì thì comment bên dưới ạ :D