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

0 bình luận về “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”

1. 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.

   Bình luận

2. đây bạn

   

   Bình luận