Написать код на любом языке.условие : в школе чемпионат с футбола.у финальном туре чемпионата играли три команды а, в, с.было проведено три матча: в первом играли команды а и в, во втором а и с, в тертьем в и с.таким образом каждая команда сыграла с каждой. за победу команда получала 3 очка, за ничью 1 очко.если две команди набрали одинаковое количество очок, то победителем считаеться команда в какой больше разница забитых и пропущеных мячей.напишите программу какая за результатами всех матчей узнает победителя чемпионата. формат выходных данных: у первом ряде входных данных записано результат игры комманд а и в.в втором ряде результат игры команд а и с.в терьем ряду результат игры команд в и с.все числа у входных данных не больше 10

#include <iostream>

using namespace std;

long Factorial(int num)
{
  long res = 1;
 
  for (int i = num; i > 1; i--)
    res *= i;
  return res;
}

int NumOfElements(int **matrix, int mSize, int nSize)
{
  int res = 0;

  for (int i = 0; i < mSize; i++)
  {
    for (int j = 0; j < nSize; j++)
      if (matrix[i][j] % 2 == 0 && matrix[i][j] < 0)
        res++;
  }
  return res;
}

int main()
{
  int
    num,
    **matrix,
    mSize,
    nSize;

  cout << "Input a number: ";
  cin >> num;

  cout << num << "! = " << Factorial(num) << endl;

  cout << "Input a matrix size: ";
  cin >> mSize >> nSize;

  matrix = new int*[mSize];
  for (int i = 0; i < mSize; i++)
    matrix[i] = new int[nSize];
  for (int i = 0; i < mSize; i++)
    for (int j = 0; j < nSize; j++)
      cin >> matrix[i][j];

  cout << "Num. of the elements = " << NumOfElements(matrix, mSize, nSize) << endl;
 
  system("pause");
  return 0;
} /* End of the 'main' function */

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.Select(x->x.Where(y->(y<0) and y.IsOdd).Count);
  b.Println;
end.

Пример
Количество строк в массиве: 10
Количество столбцов в массиве: 13
*** Исходный массив [10,13] ***
  -7 -30 -31  26 -19   4 -26 -37 -17   2  -7 -20  20
  -6  33 -24 -14 -26  38 -11 -34 -40 -22  31   7  35
 -24  -9 -35  -7 -14  -3  25  38 -30 -50  42  26 -15
  45 -17   6 -18  27  25 -21 -21   1 -39  36 -27 -49
  32 -38  -9 -17  42 -11 -31  -4 -23  33  48  40 -34
  47   6  32 -26  33 -15  10  40  43 -44  11  28   1
 -45 -23   6  26 -20 -20 -30 -15  16  12  -3  38 -42
   3   6  39  17   0   8  -7  11  29  23  -2 -23 -21
   1  13 -39  39 -44  30   5  -9 -17  43  41   2   2
  17  19  32 -20  45 -16 -13  24  32 -46 -49 -25   6

6 1 5 6 5 1 4 3 3 3