Question

Đề 13 : Viết chương trình tính trung bình cộng của n ( n<=10 )n nhập từ bàn phím

Help me mai mình kiểm tra thực hành rồi giúp mình với nha everybody -.- !!

Answer 1

program andanh;
uses crt;
var i,n,tong,a:integer;
begin
clrscr; tong:= 0;
repeat
write('Nhap so cac so: ');readln(n);
if n > 10 then
begin
write('Nhap so be hon 10. Hay nhap lai');
delay(2000);
clrscr;
end;
until n <= 10;
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
tong:= tong + a;
end;
write('Trung binh cong cua cac so tren la: ',tong/n:2:2);
readln
end.