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.
Klik untuk melihat kode: :) =( :s :D :-D ^:D ^o^ 7:( :Q :p T_T @@, :-a :W *fck* x@