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.

uses crt;
var a:array[1..100] of integer;
    i,tbc,n:integer;
Begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 for i:=1 to n do readln(a[i]);
  for i:=1 to n do tbc:=tbc+a[i];
 writeln('Trung binh cong la: ',tbc/n:5:3);
 readln;
end.