matrices - 3

program transpuesta;

uses
    crt;

type
    matrices = array[1..5, 1..5]of integer;

var
    matriz:matrices;


procedure carga(var m:matrices);
    var
        i, j:integer;

    begin

        randomize;

        for i := 1 to 5 do

            for j := 1 to 5 do

                m[i, j] := random(49+1);

    end;

procedure mostrar(m:matrices);
    var
        i, j:integer;

    begin

        for i := 1 to 5 do

            begin

                for j := 1 to 5 do

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

                writeln;

            end;

    end;

procedure transpuesta(var m:matrices);
    var
        i, j, aux:integer;

    begin

        for i := 1 to 5 do

                for j := 1+i to 5 do

                    if(i <> j)then

                        begin

                            aux := m[i, j];
                            m[i, j] := m[j, i];
                            m[j, i] := aux;

                        end;

    end;

begin

    carga(matriz);
    mostrar(matriz);
    writeln;
    writeln;
    transpuesta(matriz);
    mostrar(matriz);

end.