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
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
By Madeline
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.
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.