n=36;
A=-IdentityMatrix[n];
Do[A[[i,i+1]]=1/2;A[[i+1,i]]=1/2,{i,1,n-1}]
A[[1,n]]=1/2;A[[n,1]]=1/2;

MatrixForm[A]

alpha=Reverse[N[Eigenvectors[A]]]

lambda=Reverse[N[Eigenvalues[A]]]

Do[Print["wartosc wlasna = ",lambda[[k]]];Print[ListLinePlot[Table[{i,alpha[[k,i]]},{i,1,n}],Filling->Axis]],{k,1,n}]