[VB] 1

Imports System

Module Program
    Sub Main(args As String())
        Dim N As Integer
        Dim c As Integer
        c = 0
        N = Console.ReadLine
        Dim matr(N, N) As Integer

        For i As Integer = 1 To N
            For j As Integer = 1 To N
                If matr(i, j) < 0 Then
                    c = c + 1
                    Exit For
                End If
            Next j
        Next i



        Console.WriteLine(c)
    End Sub
End Module