Viết trương trình sử dụng câu lệnh lặp để tính trung bình n số thực X1,X2,X3,=.được nhập từ bàn phím

uses crt;

var s,nhap:real;

n,i:integer;

begin

clrscr;

write(‘Nhap n: ‘);readln(n);

for i:=1 to n do begin

writeln(‘Nhap so thu ‘,i,’: ‘);readln(nhap);

s:=s+nhap;

end;

s:=s/n;

writeln(‘Trung binh ‘,n,’ so thuc la: ‘,s:1:2);

readln

end.