clear all
A=diag([7*ones(1,5)])+diag(-ones(1,3),-2)+diag(ones(1,3),2);
se=eig(A)
%vagy:
%[V D]=eig(A)
%se=diag(D)
szam=0;
for i=1:5
if imag(se(i))==0
    szam=szam+1;
end
end
szam