dimension In(22,22),Io(22),Io1(22)
do i=1,22
do j=1,22
read*, In(i,j)
enddo
enddo
k=0
l=0
do i=1,22
suma=0
do j=1,22
suma=suma+In(i,j)
if (i.eq.j) then
if (In(i,j).eq.1) then
l=l+1
endif
endif
enddo
if (suma.eq.0) then
k=k+1
endif
enddo
print*, "aytoi pu den psifisan kanena einai",k
print*, "aytoi pu psifisan ton eayto tus einai",l
do j=1,22
suma=0
do i=1,22
suma=suma+In(i,j)
enddo
Io(j)=suma
enddo
do i=1,22
Io1(i)=i
enddo
do i=1,22
do j=22,i+1,-1
if (Io(j).gt.Io(j-1)) then
itmp=Io(j)
Io(j)=Io(j-1)
Io(j-1)=itmp
itmp=Io1(j)
Io1(j)=Io1(j-1)
Io1(j-1)=itmp
endif
enddo
enddo
do i=1,3
print*, "Paiktis numero",Io1(i),"Psifoi:",Io(i)
enddo
stop
end