Question

Viết chương trình tính trung bình cộng của các số nhập vào từ bàn phím. Khi muốn kết thúc nhập để tính trung bình thì nhấn phím 0. In kết quả ra màn hình.

Answer 1

var t,i: integer;
k: real;
begin
t:=0; i:=0;
writeln(‘Nhap so muon tinh trung binh cong, nhan phim 0 de ket thuc’);
repeat
begin
i:=i+1;
write(‘Nhap so thu ‘,i,’: ‘); readln(t);
k:=k+t;
end;
until t=0;
k:=k/(i-1);
write(‘Trung binh cong cua day so vua nhap: ‘,k);
end.