function b = indeksi (A,c)
  [rows,cols]=size(A)
  b=[];
  br=0;
  for i=1:cols
    suma=0;
    for j=1:rows
      suma=suma+A(j,i);
    end
    avg=suma/rows
    if(avg>c)
       br=br+1
       b(br)=i
    end
  end
endfunction