Var
    A: Array [1..10, 1..10] Of Real;
    Mid: Array [1..10] Of Real;
    I, J, C: Integer;
Begin
    Randomize;
    WriteLn('Матрица:');
    For J:= 1 To 10 Do Begin
      For I:= 1 To 10 Do Begin
        A[I, J]:= Integer(Random(51)) - 25;
        Write(A[I, J]:7:2);
      End;
      WriteLn;
    End;
    WriteLn('Среднее арифметическое для каждого столбца:');
    For I:= 1 To 10 Do Begin
      For J:= 1 To 10 Do Mid[I]:= Mid[I] + A[I, J];
      Mid[I]:= Mid[I] / 10;
      Write(Mid[I]:7:2);
    End;
    WriteLn;
    For J:= 1 To 10 Do Begin
      If Mid[J] > A[J, 11 - J] Then C:= C + 1;
    End;
    WriteLn('Количество столбцов, где ср.арифм > текущий элемент побочной диагонали: ', C);
    ReadLn;
End.