Chương trình 20

PROGRAM Tinh_Trung_binh;
USES crt;
VAR n, dem: INTEGER;
x, TB: REAL;
BEGIN
clrscr;
dem:=0; TB:=0;
write('Nhap so cac so can tinh n = '); readln(n);
WHILE dem<n DO
BEGIN
dem:=dem+1;
write('Nhap so thu', dem,'='); readln(x);
TB:=TB+x;
END;
TB:=TB/n;
writeln('Trung binh cua ',n,' so la = ', TB :10:3);
writeln('Nhan Enter de thoat ...');
readln
END.

Download: http://www.mediafire.com/?ep64b6xxuuv2jht