clear all
A=[diag(1:4)+diag([1 2 3],1)+diag([1 2 3],-1),9*ones(4); zeros(4), diag(5:8)];
s=zeros(1,8); %s(j) a j-edik oszloposszeg lesz
for i=1:8
    for j=1:8
        s(j)=s(j)+A(i,j);
    end
end
s
for i=1:8
    if s(i)==max(s)
        m=i
        break
    end
end

    