В общем, вопрос наверное уже не актуален...
Работает такой вариант:
Код
program laba8v1;
var a:array[1..19, 1..19] of real;
b:array[1..19, 1..19] of real;
c,n,m,i,j,s,k:integer;
Begin
writeln('stroki n,stolbci m:');
readln(n,m);
writeln('Matrix A:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4:0);
end;
writeln;
end;
readln;
for j:=1 to m do
begin
for i:=1 to n do
begin
write(a[i,j]:4:0);
end;
writeln;
end;
writeln;
readln;
end.
Не знаю чего я тупил =/
Добавлено через 1 мин. Цитата(MAXXX @ 18.05.2007 22:40)
А как ты собираешся транспонировать данные из матрицы размером(м*н) в (н*м) Другое дело, если у тебя обе матрицы размера макс(м*н), но значущие только м*н еементов 1-ой матрицы
Тогда твой код должен проходить
Вот примерная реализация
Код
Const maxn=100;
maxm=100;
Var matr1,matr2:array[1..maxn,1..maxm] of Integer;
n,m,i,j:Integer;
begin
{ввод н,м,таблицы}
For i:=1 to n do
For j:=1 nto m do
matr2[j,i]:=matr1[i,j];
{вывод в цикле
For i:=1 to m do
For j:=1 to n do
Write(a[i,j]}
end.
Этот вариант обрезает значения если n не равно m. Вроде....хммм