uses crt; var a: array [1..500] of integer; n,i: integer; tong: longint; kq: real; begin clrscr; randomize; write('Nhap so luong phan tu can ngau nhien: '); readln(n); for i:=1 to n do a[i]:=random(101); {Lay tam tu 1 toi 100} for i:=1 to n do tong:=tong+a[i]; kq:=tong/n; write('Ket qua: ',kq:0:3); readln end.
