program univers; var i,n, imin, imax,p :integer; var s,min,max,k,k1,k2:integer; var sr :real; x:array[1..25] of integer; begin read(n); for i:=1 to n do read(x[i]); s:=0; for i:=1 to n do s:=s+x[i]; k:=0;// общее for i:=1 to n do inc(k); k1:=0;// полжительные k2:=0; // отрицательные for i:=1 to n do if x[i]<0 then inc(k2); P:=1; for i:=1 to n do P:=p*x[i]; sr:=s/k; max:=x[1];// максимум for i:=2 to n do if x[i]>max then max:=x[i]; imax:=1; for i:=2 to n do if x[i]>imax then imax:=i; min:=x[1]; for i:=2 to n do if x[i]