program test
implicit none
integer::i,j,k,m
integer,allocatable::a(:,:),b(:)
integer::max00,min00
read(*,*) m !行数
allocate(a(m,0:5),b(m))
open(10,file='data.txt') !数据存放在10号文件中
do i=1,m
 read(10,*) (a(i,j),j=0,5)
enddo
close(10)
open(20,file='result.txt')
!第一问
write(20,*) '第一问'
max00=maxval(a(1:m,1))
min00=minval(a(1:m,1))
write(20,*) 'interval:[',min00,max00,']'
write(20,*) ''
!第二问
 write(20,*) '第二问'
do i=2,m
 k=0
 do j=1,5
    if(a(i-1,j).eq.a(i,j))then
    k=k+1
    endif
 enddo
 write(20,*) i,k !第i行和第i-1行有k个数相同
enddo
!第三问
 write(20,*) '第三问'
do i=1,m
 b(i)=sum(a(i,1:5))
 write(20,*) b(i)
enddo
!第四问
!在第10号文件中，接着之前的数据输入后续数据
close(20)
end program test