Uses crt;

var a: array [1..100] of integer;

n, i, s: integer;

tb: real;

begin

clrscr;

write ('Nhap so luong phan tu: ');

readln (n);

for i:= 1 to n do readln (a[i]);

s:=s+a[i];

tb:=s/n;

writeln ('Gia tri trung binh cong cua mang la ',tb);

write ('Cac phan tu nho hon gia tri trung binh cong: ');

for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln

end.