Viết chương trình tính trung bình của n số (nhập từ bàn phím)
Program Trung_binh_day_so ;
VAR
n, count : Integer ;
x, sum, average : real ;
BEGIN
count := 1 ;
sum := 0 ;
Write (' Nhập n = '); readln (n) ;
WHILE count
< n+1 DO
BEGIN
Write
(' Nhập giá trị thứ' , count,' của x = ' ) ;
readln
(x) ;
sum := sum + x ;
count
:= count + 1 ;
END ;
average:=
sum/n ;
Writeln (' Trung bình là
=' , average : 10 : 3 ) ;
Writeln (' Nhấn Enter để
thoát ...' ) ;
Readln ;
END.