Lập chương trình nhập mảng A gồm 10 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
2 câu trả lời
program trung_binh;
uses crt;
type kmang=array[1..10] of integer;
var A:kmang;
i:integer;
{---Ham-trung-binh---}
Function trung_binh(A:kmang):real;
var j,t:integer;
begin
t:=0;
for j:=1 to 10 do t:=t+A[j];
trung_binh:=t/2;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']= '); readln(A[i]);
end;
write('Gia tri trung binh cua mang A la: ',trung_binh(A):0:2);
readln;
end.
