18b

223

program 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 do

if abs(a[i])> s then k:=k+1;

end.