matriz trasposta

[julinharr 0]

me ajudem

não tô conseguindo resolver esse algoritimo nos pascal!!!!

 

program matrII_1;

uses

crt;

var

m:array[1..4,1..5] of integer;

mt:array[1..5,1..4] of integer;

i,j:integer;

begin

for i:=1 to 4 do

for j:=1 to 5 do

begin

writeln(' informe os elementos da matriz m, linha ',i,' coluna ',j);

readln(m[i,j]);

end;

for i:=1 to 5 do

for j:=1 to 5 do

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

for i:=1 to 5 do

begin

for j:=1 to 4 do

writeln(' ',mt[i,j]);

writeln;

end;

end.

[_Isis_ 202]

for i:=1 to 4 do
for j:=1 to 5 do
begin
  writeln(' informe os elementos da matriz m, linha ',i,' coluna ',j);
  readln(m[i,j]);
  mt[j,i] : =mt[i,j];
end;