Tin học Viết chương trình tính trung bình cộng ngẫu nhiên nhập từ bàn phím P/S: Giúp mình chiều nay cô kiểm :3 23/07/2021 By Maya Viết chương trình tính trung bình cộng ngẫu nhiên nhập từ bàn phím P/S: Giúp mình chiều nay cô kiểm :3
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); readlnend. Trả lời