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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận