Практики решения задач с двумерными массивами не имею. Помогите пожалуйста (процедуры мы не изучали).
Пока получилось следующее, но транспонирование работает не верно, остальное что-то вообще никак не соображу:
program zadacha;
uses crt;
type
matr=array[1..10, 1..8] of integer;
var
a:matr; i,j,b:integer;
begin
randomize;
writeln('ishodnaya matrica:');
for i:=1 to 10 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 10 do
for j:=i to 8 do
begin
b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
end;
writeln('transponirovannaya matrica:');
for i:=1 to 8 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
readkey;
end.