uses crt;
var a: array[1..100] of real;
i,n,vt: integer;
tbc,gtg:real;
begin
clrscr;
write ('nhap so luong phan tu: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
tbc:=tbc+a[i];
end;
tbc:=tbc/n;
writeln ('gia tri trung binh la: ',tbc:1:2);
for i:=1 to n do
if (a[i]=tbc) or (a[i]-tbc<=1) or (a[i]-tbc<=-1) then
begin
gtg:=a[i];
vt:=i;
end;
writeln ('so co gia tri gan voi gttb nhat la: ',gtg);
readln;
end.