for i from 2 to M-1 do
> for j from 2 to N-1 do
> if (A[i,j]>0) then q:=q+1;H[i,j]:=q;fi;
od;
od;

I Maple 9:
>for j from 1 by 2 to 11 do
  ...;...; end do;