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

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.