pr8(file)

program pr8 ! задание: хотя бы в одной строке матрицы все элементы не превосходят b
integer::i,j,m,n
real::b=10**3
real,dimension(:,:),allocatable::A
print*, 'Input m,n'
read(*,*) m,n
allocate(A(1:m,1:n))
open(101,file='matrix.txt',status='old') ! матрица в файле должна соответствовать m,n
do i=1,m
    read(101,*) A(i,:)
    call check(A,i,b)
    do j=1,n
        write(*,'(f7.2\)') A(i,j)
    end do
    print*, ' '
end do
close(101)
deallocate(A)
write(*,'(/"Ans.-",f7.2)') b
contains

    subroutine check(A,m,b) ! maxval(ARRAY,[DIM=],[MASK=])-returns max value of an array
    integer::i,j,m,n
    real,intent(in)::A(:,:)
    real::b,max
    max=maxval(A(m,:))
    if (b>max) then
        b=max
    end if
    end subroutine

end