Viết chương trình con chương trình sau: Cho mảng A gồm n phần tử thuộc kiểu nguyên.Viết hàm tính giá trị trung bình mảng A
2 câu trả lời
function tb(var a:arr; n:longint):real;
var i,sum:longint;
begin
sum:=0;
for i:=1 to n do inc(sum,a[i]);
tb:=sum/n;
write(tb:0:2);
end;
