Chuyển sang C++ với ạ:
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=');realdn(n)
while dem<n do
begin
dem:=dem+1
write('nhap so thu' ,dem,'='); readl(x);
TB:=TB+x;
end;
TB:=TB/n;
writeln('Trung binh cua',n,` so la =',TB:10:3);
writeln('nhap Enter de thoat...');
readln;
end.
Loga
Sinh Học lớp 12
