18b223program pet;const n=10;var a:array[1..n] of integer; i,k:byte; s:real;s:=0;for i:=1 to n do begin write('a[',i,']='); readln(a[i]); s:=s+a[i]; end;s:=s/n;k:=0;for i:=1 to n doif abs(a[i])> s then k:=k+1;end.