Тут в соседней темке было про матрицу, вспомнилась сразу то, что лекцию когда разбирали матрицы я в больнице валялся... потом читал, нифига не помогло)) вроде бы нюхом чую что лёгкая но как написать -не знаю
"Дана квадратная матрица A= {Ai j}, i,j= 1…M где М данное число. Получить матрицу В=Ат т- знак транспонирования. И выдать на экран"
Странно. Вроде поиск не отключали. Почему ж не пользуются люди им? Неужели так сложно набрать слово "транспонирование"?
завалялась где-то, нашел:
uses crt;
var a:array[1..30,1..30] of byte;
i,j,m,b:byte;
begin
clrscr;
randomize();
writeln('Vvedite m dlya razmernosti matricy: ');
readln(m);
writeln('Ishodnaya matrica:');
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
for j:=i to m do
begin
b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
end;
writeln('Transponirovannaya matrica:');
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end.