Матрица. Функция.

#include <iostream>
#include <conio.h>
#include <locale.h>
#include <iomanip>


using namespace std;

int main()
{
    setlocale(LC_ALL, "Russian");

    void Show(int n,int m, int **a);
    void Sum(int n, int m, int **a);
    void matrixSum(int n, int m, int k, int l,int **a, int **b);
    void sMatrix(int n, int m, int k, int l,int **a, int **b);

   
    int n, m;
    int i, j;


    cout<<"Введите размерность первой матрицы:\n";
    cout<<"Введите n\n";
    cin>>n;
    cout<<"Введите m\n";
    cin>>m;
    int **mas1 = new int* [n];
    cout<<"Заполните матрицу:\n";
    for (i=0; i<n;i++)
    {
        mas1=new int[m];
        for (j=0;j<m;j++)
        {
             cin>>mas1[j];
        }
    }

    int k, l;
    cout<<"Введите размерность второй матрицы:\n";
    cout<<"Введите k\n";
    cin>>k;
    cout<<"Введите l\n";
    cin>>l;

    int **mas2 = new int* [k];
    cout<<"Заполните матрицу:\n";
    for (i=0; i<k;i++)
    {
        mas2=new int[l];
        for (j=0;j<l;j++)
        {
             cin>>mas2[j];
        }
    }
   
    cout<<"Первая матрица: \n";
    Show(n,m,mas1);
    cout<<"Вторая матрица: \n";
    Show(k,l,mas2);
    cout<<"Первая матрица: \n";
    Sum(n,m,mas1);
    cout<<"Вторая матрица: \n";
    Sum(k,l,mas2);
    matrixSum(n, m, k, l, mas1, mas2);
    sMatrix(n, m, k, l, mas1, mas2);
    getch();
}

// ф-ция вывода матриц
void Show(int n, int m, int **a)
{
    for(int i=0;i<n;i++)
    {
        for(int j=0;j<m;j++)
            cout<<setw(5)<<*(*(a+i)+j)<<ends;
        cout<<endl;
    }
}
// сумма элементов строки
void Sum(int n, int m, int **a)
{
    int sum=0;
    int min;
    int index;
    int i,j;
//определение минимального элемента строки
    for (i=0; i<n; i++)
    {
        min=a[0];
        index=0;
        sum=0;

        for (j=0; j<m;j++)
        {
            if (a[j]<min)
            {
                min = a[j];
                index=j;
            }

            if (index==0)
            {
            sum +=a[j];
           
            }

        }
        cout<<"Cтрока: "<<i<<" Cумма: "<<sum<<endl;
       
       
    }

}
// сумма матриц
void matrixSum(int n, int m, int k, int l,int **a, int **b)
    {
        int **sumM = new int* [n];
        if (n==k && m==l)
        {
            for (int i=0; i<n;i++)
            {
                sumM=new int[m];
                for (int j=0; j<m; j++)
                {
                 sumM[j]=a[j]+b[j];
                }
            }
            cout<<"Сумма матриц: \n";
            Show(n,m,sumM);
        }
        else
        {
            cout<<"Нельзя  сложить\n";
        }
       

    }
// сравнение матриц
void sMatrix(int n, int m, int k, int l,int **a, int **b)
{
    int count1=0;
    int count2=0;

    if (n==k && m==l)
    {
        for (int i=0; i<n;i++)
        {
                for (int j=0; j<m; j++)
                {
        if (a[j]>b[j])
            {
            count1++;
            }
        if (a[j]<b[j])
        {
            count2++;
        }


                }
        }

        if (count1==m*n)
            {
                cout<<"Матрица 1 больше\n";
            }

            if (count2==m*n)
            {
                cout<<"Матрица 2 больше\n";
            }
                if (count1!=m*n && count2!=m*n)
                {
                cout<<"Нельзя сравнить\n";
                }
    }
    else
    {
    cout<<"Нельзя сравнить\n";
    }

}

function sum(var x:mas;row,col:integer):integer;
var s, i,j,min: integer ;
begin
min:=x[1,1];
For i:=1 to row do
For j:=1 to col do
begin
If min>x[i,j] then
begin
min:=x[i,j];
end;
end;
s:=0;
for i:=1 to n do
s:=s+x[i,j];
writeln (s);
end;

program lab5;
uses crt;
const max=10;
type mas=array[1..max,1..max] of integer;
var a,b:mas; n,m,k,l,g,u:integer;

procedure matrixin(var x:mas; row,col:integer);
var i,j:integer;
begin
writeln('Vvod elementov matricy');
for i:=1 to row do begin
writeln('Vvod elementov ',i,' stroki matricy');
for j:=1 to col do
readln(x[i,j]);
end;
end;

procedure matrixout(var x:mas; row,col:integer);
var i,j:integer;
begin
for i:=1 to row do begin
writeln;
for j:=1 to col do
write(x[i,j], ' ');
end;
end;

function sum(var x:mas;row,col:integer):integer;
var s, i,j,min, index: integer ;
begin
For i:=1 to row do
index:=0;
s:=0;
min:= x[i,1];
For j:=1 to col do
begin
If x[i,j]<min then
begin
min:=x[i,j];
index:=j;
end;
If index=0  then
begin
s:=s+x[i,j];
end;
end;
writeln (s);
end;

begin
clrscr;
writeln('Vvedite razmernost matricy A');
readln(n,m);
writeln('Vvedite razmernost matricy B');
readln(k,l);
matrixin(A,n,m);
matrixin(B,k,l);
writeln('*********__MATRIX_A__*********');
matrixout(A,n,m);
writeln;
writeln('*********__MATRIX_B__*********');
matrixout(B,k,l);
writeln;

writeln;
writeln('*********__MATRIX_A*__**********');
matrixout(A,n,m);
writeln;
writeln('*********__MATRIX_B*__**********');
matrixout(B,k,l);
g:=sum(a,n,m);
u:=sum (b,k,l);
if  g > u  then begin
writeln('Naibolshaa matrica A');
end
else begin
writeln('Naibolshaa matrica B');end;
readln;
end.

g:=sum(A,n,m);
u:=sum (B,k,l);
if  g > u  then begin
writeln('Naibolshaa matrica A');
end
else begin
writeln('Naibolshaa matrica B');end;

g:=sum(A,n,m);
u:=sum (B,k,l);

function sum(var x:mas;row,col:integer):integer;
var s, i,j,min, index: integer ;
begin
s := 0;
index:=0;
min:=x[1,1];
For i:=1 to row do
begin
For j:=1 to col do
begin
If x[i,j]<=min then
begin
min:=x[i,j];
index:=i;
end;
end;
end;
writeln ('element',min);
writeln ('stroka',index);

For i:=1 to row do
begin
For j:=1 to col do
begin
if i=index then
begin
s:=s+x[index, j];
end;
end;
end;
writeln ('summa',s);
end;

program lab5;
uses crt;
const max=10;
type mas=array[1..max,1..max] of integer;
var a,b:mas; n,m,k,l,s,v,z,g,h:integer;

    procedure matrixin(var x:mas; row,col:integer);
    var i,j:integer;
    begin
    writeln('______VVOD ELEMENTOV______');
    writeln('');
    for i:=1 to row do begin
    writeln('VVOD ELEMENTOV ',i,' STROKI');
    for j:=1 to col do
    readln(x[i,j]);    end;
    end;

    procedure matrixout(var x:mas; row,col:integer);
    var i,j:integer;
    begin
    for i:=1 to row do begin
    writeln;
    for j:=1 to col do
    write(x[i,j], ' ');
    end;
    end;

    procedure zamena(var x:mas; row,col:integer);
    var i:integer;
    begin
    for i:=1 to row do
    if x[i,i]=0 then x[i,i]:=1;
    end;

    function sum(var x:mas;row,col:integer):integer;
    var s, i,j,min, index: integer ;
    begin
    s := 0;
    index:=0;
    min:=x[1,1];
    For i:=1 to row do
    begin
    For j:=1 to col do
    begin
    If x[i,j]<=min then
    begin
    min:=x[i,j];
    index:=i;
    end;
    end;
    end;
    writeln ('min. element - ',min);
    writeln ('stroka - ',index);

    For i:=1 to row do
    begin
    For j:=1 to col do
    begin
    if i=index then
    begin
    s:=s+x[index, j];
    end;
    end;
    end;
    writeln ('summa elementov stroki - ',s);
    h:=s;
    g:=s;
    end;
begin
clrscr;
writeln('VVEDITE RAZMERNOST MATRIX A');
readln(n,m);
writeln('VVEDITE RAZMERNOST MATRIX B');
readln(k,l);
matrixin(A,n,m);
matrixin(B,k,l);
clrscr;
writeln('_____MATRIX_A_INT_____');
matrixout(A,n,m);
writeln ('');
writeln('_____MATRIX_B_INT_____');
matrixout(B,k,l);
writeln ('');
writeln;
writeln('_____MATRIX_A_OUT_____');
matrixout(A,n,m);
writeln('');
sum(a,n,m);
writeln (h);
v:=h;
writeln('_____MATRIX_B_OUT_____');
matrixout(B,k,l);
writeln ('');
sum(b,k,l);
writeln(g);
z:=g;
if v>z then
   begin
   writeln ('max - MATRIX A');
   end
else
    begin
    writeln ('max - MATRIX B');
    end;
readln;
end.

Var sum: integer
sum:=0

For i:=1 to row do begin
For j:=1 to col do begin
sum=sum+x[i,j]
End;
End;

White(sum);