0
помогите пожалуйста исправить
program matrix74
implicit none
integer,allocatable,dimension(:,:)::mat
integer::i,j,m,n,k
logical::locmin
print*,'enter the size of the matrix (NiM):'
read*,n,m
allocate(mat(m,n))
call fill_array(n,m,mat)
do i=1,m
do j=1,n
if (locmin(mat,m,n,i,j) .eqv. .true....