PROGRAM LAB1
   REAL A(100,100)
   PRINT*,'Введите размерность матрицы N*M'
   READ*,N,M
   PRINT*,'Введите матрицу'
   DO I=1,N
      READ*,(A(I,J), J=1,M)
   ENDDO
   DO I=1,N
      PRINT*,(A(I,J), J=1,M)
   ENDDO
   DO I=1,N
      S=0
      DO J=1,M
         S=S+A(I,J)
      ENDDO
      IF (S.GT.0) THEN
         K = 0
         DO J=1,M
            IF (A(I,J).LT.0) K=K+1
         ENDDO
         PRINT*,'В строке ',I
         PRINT*,'Сумма элементов больше нуля.'
         PRINT*,'А число отриц. эл. ',K
      ENDIF
   ENDDO
      END