MarVar_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 ((I In [1..5]) And (J In [I..10 - (I - 1)])) Or
              ((I In [6..10]) And (J In [10 - (I - 1)..I])) Then
                A[I, J]:= 3 * (I - J) + 6
            Else
                A[I, J]:= 0;
        End;
    End;
    For J:= 1 To 10 Do Begin
        For I:= 1 To 10 Do Write(A[I, J], ' ');
        WriteLn;
    End;
    For I:= 1 To 10 Do Begin
        CurZero:= 0;
        For J:= 1 To 10 Do If A[I, J] = 0 Then CurZero:= CurZero + 1;
        If CurZero > MaxZero Then Begin
            MaxStr:= J; MaxZero:= CurZero;
        End;
    End;
    WriteLn('Больше всего нулей в ', MaxStr, ' столбце:');
    For I:= 1 To 10 Do Begin
        Write(A[I, MaxStr], ' ');
    End;
    ReadLn;
End.