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à in ra màn hình
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.
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.