vara:array[1..10]of integer;i,j,min,max,sum,ave:integer;beginmin:=maxint;max:=0;for i:=1 to 10 do begin read(a[i]); if a[i]>max then max:=a[i]; if a[i] sum:=sum+a[i]; end;sum:=sum-max-min;writeln(sum);writeln((sum/8):0:2));end.