Viết chương trình nhập vào một mảng các số nguyên. Ghi ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng

program Mang;

uses crt;

var A:array [1..500] of integer;

      n,i: integer;

      TB: real;

Begin

         clrscr;

         write(‘Nhap so phan tu: ‘); readln(n);

         for i:=1 to n do

         begin

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

                  TB:=TB+A[i];

         end;

         TB:=TB/n;

         writelln(‘Trung binh cong cua mang = ‘,TB:2:1);

         write(‘Cac gia tri < gia tri trung binh cong: ‘);

         for i:=1 to n do

              if A[i]<TB then write(A[i],’  ‘);

         readln

End.