Giúp em với ạ .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 của mảng A .Em cảm ơn nhiều ạ .
2 câu trả lời
* Chương trình hoàn chỉnh:
uses crt;
type arr=array[1..1000]of longint;
var a:arr;
n,i:longint;
function averageOfTheArray(var a:arr;n:longint):real;
var i,sum:longint;
begin
sum:=0;
for i:=1 to n do inc(sum,a[i]);
exit(sum/n);
end;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
write(averageOfTheArray(a,n):0:2);
readln;
readln;
end.
* Hàm:
function averageOfTheArray(var a:arr;n:longint):real;
var i,sum:longint;
begin
sum:=0;
for i:=1 to n do inc(sum,a[i]);
exit(sum/n);
end;
