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

0 bình luận về “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”

1. 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.

   Bình luận