uses crt;
var a:array[1..100] of longint;
n,s,i,max,min,g:longint;
tb:real;
begin
clrscr;
write('n');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
s:=s+a[i];
        begin
max:=a[i];
if a[i]>a[i] then max:=a[i]
        end;
begin
   min:=a[i];
if a[i]<a[i] then min:=a[i];
   end;
                begin
if (a[i]>min) and (a[i]<max) then g:=a[i];
                end;
end;
tb:=s/n;
writeln('tb',tb:5:2);
writeln('max',max);
writeln('min',min);
writeln('gia tri gan trung binh',g);
readln
end.

uses crt;
var a : array[1..100] of integer;
     i, n, s  : integer;
     tb , min : real;
begin
clrscr;
write('nhap so luong phan tu : '); readln( n);
s := 0;
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' :'); readln(a[i]);
s := s + a[i];
tb := s/ n;
end;
min := abs(tb - a[1]) ;
for  i := 2 to n do 
if abs(a[i] - tb) < min then min := abs(tb - a[i]);
writeln(' gia tri tb :', tb: 3: 1);
writeln(' phan tu chenh lech nho nhat voi gia tri trung binh :', abs(tb - min):3:0);
readln
end.