Untitled

program prog
integer m,n,i,j,c
      real A,B,x,y,max
          dimension A(9,9),B(9,9), H(9)
          ! ввод размера матрицы
          print*, 'vvedite razmer i'
          read*, i
          print*, 'vvedite razmer j'
          read*, j
          !ввод элементов
          do m=1,i
           do n=1,j
                  print*, 'vvedite' , m,'X',n
                  read*, A(m,n)
            enddo
          enddo
          ! печать матрицы
          do m=1,i
          print*, (A(m,n),n=1,j)
          enddo
                 print*, '_________________________________________________'
                 print*, A(2,2)
                 print*, '_________________________________________________'
          !поиск максимальных элементов
           do n=1,i
           max=A(n,1)
             do m=1,j
                  if(A(m,n)>max)then
                  max=A(m,n)!максимальный элемент  N столбца
                  endif
                  H(n)=max !передаю макс элементы в массив
             enddo
           enddo
          print*, H !печать массива
          print*, '_________________________________________________'
          c=0
          max=H(1)
           do m=1,8
           c=m+1
            if(H(m)<H(m+1))then !сортирую массив в порядке убывания
            x=H(m)
            H(m)=H(m+1)
            H(m+1)=x
                print*, m,'perestanovka zavershena'
                !print*, A(:,c)
                print*, '_________________________________________________'
            B(:,m)=A(:,c)
            else
            B(:,m)=A(:,m)
            endif
           enddo
           print*, H !печать массива
           print*, '_________________________________________________'
            !do n=1,9  !при условии перестановки местами элементов
                ! массива присваиваю столбец N матрицы А метрицt B на нужное место
            !B(m,n)=A(c,n)
                 !enddo
                 !else
                 !do n=1,9  !при условии  НЕ перестановки
                ! ц N матрицы А метрицt B на нужное место
           ! B(m,n)=A(m,n)
                !enddo
                !endif
           !enddo
         do m=1,i
          print*, (B(m,n),n=1,j)
          enddo
                 print*, '_________________________________________________'
          end