POLANN_2_0

Var
    A: Array [1..10, 1..10] Of Integer;
    I, J, CurZero, MaxZero, MaxStr: Integer;
Begin
    Randomize;
    MaxZero:= 0; MaxStr:= 0;
    For J:= 1 To 10 Do Begin
        For I:= 1 To 10 Do Begin
            A[I, J]:= Integer(Random(11)) - 5;
            {Чтобы вводить числа с клавиатуры, а не рассчитывать случайно,
            следует верхнюю строку заменить на: ReadLn(A[I, J]);}
        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;
End.