Viết chương trình nhập từ bàn các số thực a,b, c,d, e và tính trung bình các số đó.

0 bình luận về “Viết chương trình nhập từ bàn các số thực a,b, c,d, e và tính trung bình các số đó.”

1. program oken;
   uses crt;
   var a: array [1..5] of real;
       i: byte;
       s: real;
   begin
       clrscr;
       for i:=1 to 5 do
           begin
               write(‘nhap so thu ‘,i,’: ‘);
               readln(a[i]);
               s:=s+a[i];
           end;
       writeln(‘TBC cua 5 so vua nhap: ‘,s/5:0:3);
       readln;
   end.

   Bình luận

2. Program tinh_tb;

   Uses crt;

   Var a,b,c,d,e,tb: real;

   Begin 

   Writeln (‘nhap a,b,c,d,e:’); 

   Readln (a,b,c,d,e);

   Tb:=(a+b+c+d+e)/5;

   Writeln (‘Trung binh cua cac so tren la:’,Tb:5:2);

   Readln

   End.

   Bình luận