Построить матрицу B , поменяв местами строки и столбцы в Паскале

Question

Построить матрицу B , поменяв местами строки и столбцы в Паскале

Comments

Это называется транспонированием

---

ну мне как то нужно показать это в программе...

---

Ваше задание называется так: "Транспонировать матрицу в Паскале"

---

Спасибо, сейчас буду разбираться

Answer 1

Var a,b:array[1..3,1..3] of integer;
i,j:integer;
begin;
randomize;
writeln('First matrix');
for i:=1 to 3 do
 begin;
  writeln;
   for j:=1 to 3 do
    begin;
     a[i,j]:=random(9);
     write(a[i,j]:4);
     b[j,i]:=a[i,j];
    end;
 end;
writeln;
writeln('Final matrix');
for i:=1 to 3 do
 begin;
  writeln;
   for j:=1 to 3 do
    write(b[i,j]:4);
 end;
end.