Tin học 11 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

program trung_binh;

uses crt;

type kmang=array[1..1000] of integer;

var a:kmang;

      n,i:integer;

{—Ham—}

function tbc(A:kmang;  n:integer):real;

var j,t:integer;

begin

      t:=0;

      for j:=1 to n do t:=t+A[j];

      tbc:=t/n;

end;

{—Chuong-trinh-chinh—}

begin

      clrscr;

      write(‘Nhap N: ‘);  readln(n);

      for i:=1 to n do

            begin

                  write(‘A[‘,i,’]= ‘);  readln(A[i]);

            end;

      write(‘Trung binh la: ‘,tbc(A,n):0:3);

      readln;

end.