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