Tính giá trị trung bình của tổng N số nguyên được nhập từ bàn phím

Question

Chào mọi người, đã một khoảng thời gian mình không đăng bài vì một số lý do cá nhân giờ mình sẽ tiếp tục với chuyên mục Mảng để mọi người ôn tập và nâng cao kiến thức về tin nhé!!!! Cảm ơn các bạn!

Bài 1: Tính giá trị trung bình của tổng N số nguyên được nhập từ bàn phím!

Comments

Đề hại não thật......Bạn có bao nhiêu đề kiểu này vậy??

---

Nhiều lắm thoải mái đi hihi!!!

Answer 1

program bt;

uses crt;

var i,n,t: interger;

      a:real;

      b:array[1..100] of integer;

begin

clrscr;

write('Nhap N so nguyen: '); readln(n);

write('Cac so trong N so nguyen ');

for i:=1 to n do write(i ';');

t:=0;

for i:=1 to n do t:=t+i;

a:=t/n;

write('Gia tri trung binh cua tong N so nguyen la: ',a);

readln

end.

Có gì sai sót mong bạn góp ý nha. Thanks nhiều nha ^^