matrices - 1

program tp;

uses
    crt;

type
    matriz = array [1..3, 1..4] of integer;

var
    matriz1:matriz;

procedure cargarMatriz(var m:matriz);
    var
        i, j:integer;

    begin

        randomize;

        for j := 1 to 3 do

            for i := 1 to 4 do

                m[i, j]:=random(15);

    end;

procedure mostrarMatriz(m:matriz);
    var
        i, j:integer;

    begin

        randomize;

        for j := 1 to 3 do

            for i := 1 to 4 do

                begin

                    if(i<4)then

                        write(m[i, j], ', ')

                    else

                        writeln(m[i, j]);

                end;

    end;

function sumatoria(m:matriz):integer;
    var
        suma, i, j:integer;

    begin

        suma := 0;

        for j := 1 to 3 do

            for i := 1 to 4 do

                begin

                    suma := suma + m[i, j];

                end;

        sumatoria := suma;

    end;

begin

    cargarMatriz(matriz1);

    mostrarMatriz(matriz1);

    writeln('');

    writeln(sumatoria(matriz1));

end.