Матрицы

[Jeka14]

Помогите пожалуйста Pascal abc
Даны 2 матрицы А и B. Проверить равенство:
(А+B)’=А’+B’
Где А, B – исходные матрицы
А’, B’ – транспонированные матрицы
С помощью подпрограммы.

[Aleksandr H.]

Ну равны. Ты то что хочешь?

[Jeka14]

Программу которая будет это проверять

[Aleksandr H.]

using System;

namespace Rextester
{
    public class Program
    {
        static Random rnd = new Random();
        static int[,] TransposeMatrix(int[,] a)
        {
            int i,j;
            int n,m;
            int[,] b;
            n = a.GetLength(0);
            m = a.GetLength(1);
             b = new int[m,n];
            for(i=0;i<n;i++)
                for(j=0;j<m;j++)
                   b[j,i]=a[i,j];
            return b;
        }
        static int[,] AddMatrix(int[,] m1, int[,] m2)
        {
           int n = m1.GetLength(0);
           int m = m1.GetLength(1);
           int[,] r = new int[n,m];
           for(int i=0;i<n;i++)
           for(int j=0;j<m;j++)
              r[i,j] = m1[i,j]+m2[i,j];
           return r;
        }
        static bool IsEqual(int[,] m1,int[,]m2)
        {
            int n = m1.GetLength(0);
            int m = m1.GetLength(1);
            for(int i=0;i<n;i++)
                for(int j=0;j<m;j++)
                    if(m1[i,j]!=m2[i,j])
                        return false;
            return true;
        }
        static int[,] ReadMatrix(int n, int m)
        {
            int[,] a = new int[n,m];
            for(int i=0;i<n;i++)
                for(int j=0;j<m;j++)
                    a[i,j] = rnd.Next(20);
            return a;
        }
        static void PrintMatrix(int[,] mt)
        {
            int n = mt.GetLength(0);
            int m = mt.GetLength(1);
            Console.WriteLine();
            for(int i=0;i<n;i++)
            {
                for(int j=0;j<m;j++)
                    Console.Write("{0}  ",mt[i,j]);
                Console.WriteLine();
            }
        }
        public static void Main(string[] args)
        {
            int n = 5, m =5;
            int[,] a = new int[n,m];
            int[,] b = new int[n,m];
            int[,] c = new int[n,m];
            int[,] d = new int[n,m];
            a = ReadMatrix(n,m);
            b = ReadMatrix(n,m);
            c = AddMatrix(a,b);
            c = TransposeMatrix(c);
            PrintMatrix(c);
            a = TransposeMatrix(a);
            b = TransposeMatrix(b);
            d = AddMatrix(a,b);
            PrintMatrix(d);
            Console.WriteLine(IsEqual(c,d));
        }
    }
}