Дана некоторая матрица A размером, причем все ее элементы являются двухзначными числами. Из цифр каждого элемента данной матрицы составьте соответственно две матрицы B и C по следующему правилу: произвольный элемент bij матрицы B будет равняться первой цифре элемента aij матрицы A, а произвольный элемент сij матрицы C будет равняться второй цифрой элемента aij матрицы A.

Определите:
– количество нулевых элементов в матрице C;
– сумму всех элементов матрицы B и сумму всех элементов матрицы C;
– какая сумма оказалась больше (выведите соответственно слова «сумма элементов матрицы B больше», «сумма элементов матрицы C больше»)?

А причем тут Excel?

Вот это поворот. Я про плюсы, ты про паскаль. А нужен эксель)

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018// Внимание! Если программа не работает, обновите версию!begin  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');  Writeln('*** Матрица A ***');  var a:=MatrRandom(m,n,10,99); a.Println(3);  var b:=new integer[m,n];  var c:=new integer[m,n];  for var i:=0 to m-1 do    for var j:=0 to n-1 do      (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);  Writeln('*** Матрица  B ***'); b.Println(3);    Writeln('*** Матрица  C ***'); c.Println(3);  Writeln(3*n*'-');  Writeln('Количество нулевых элементов в С: ',    c.ElementsByRow.Where(t->t=0).Count);  var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);  Writeln('Сумма всех элементов матрицы B: ',sb);  Writeln('Сумма всех элементов матрицы C: ',sc);  if sb>sc then Writeln('Сумма элементов матрицы B больше')  else    if sc>sb then Writeln('Сумма элементов матрицы C больше')    else Writeln('Суммы элементов матриц B и С равны')end.