POLANN_2_1

Var
    A: Array [1..10, 1..10] Of Integer;
    I, J, IB, JB, CurZero, MaxZero, MaxStr: Integer;
Begin
    Randomize;
    WriteLn('________________');
    MaxZero:= 0; MaxStr:= 0; IB:= 0; JB:= 5;
    For J:= 1 To 10 Do Begin
        For I:= 1 To 10 Do Begin
            If Not ((J In [1..5]) And (I In [J..10 - (J - 1)])) Then
                A[I, J]:= Integer(Random(10));
        End;
    End;
    For J:= 1 To 10 Do Begin
        CurZero:= 0;
        For I:= 1 To 10 Do Begin
            Write(A[I, J], ' ');
            If A[I, J] = 0 Then Inc(CurZero);
        End;
        If CurZero > MaxZero Then Begin
            MaxStr:= J; MaxZero:= CurZero;
        End;
        WriteLn;
    End;
    WriteLn('Больше всего нулей в ', MaxStr, ' строке:');
    For I:= 1 To 10 Do Begin
        Write(A[I, MaxStr], ' ');
    End;
    ReadLn;
End.