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.