Bài 3: Viết chương trình thực hiện công việc sau a) nhập vào mảng có m số thực (m được nhập từ bàn phím) b) Tính trung bình cộng các số đã nhập và i

0 bình luận về “Bài 3: Viết chương trình thực hiện công việc sau a) nhập vào mảng có m số thực (m được nhập từ bàn phím) b) Tính trung bình cộng các số đã nhập và i”

1. uses crt;
   var a:array[1..1000] of real;
           m,i:integer;
           tbc:real;
   begin
           clrscr;
           write(‘Nhap so luong phan tu: ‘); readln(m);
           for i:=1 to m do
                   begin
                           write(‘Phan tu thu ‘,i,’: ‘); readln(a[i]);
                           tbc:=tbc+a[i];
                   end;
           write(‘TBCong: ‘,tbc:0:2);
           readln;
   end.

   Bình luận

2. program phuongt;
   uses crt;
     var A: array[1..500] of real;
           i, m: integer;
           tb: real;
   begin
          clrscr;
          write(‘Nhap m = ‘); readln(m);
          tb:=0;
          for i:=1 to m do
          begin
                   write(‘A[‘, i, ‘] = ‘); readln(A[i]);
                   tb:=tb+A[i];
          end;
          write(‘TBC = ‘, tb/n:3:2);
          readln
   end.

   Bình luận