Листинг программы
program z20;
{Дана таблица, поменять местами строки и столбцы}
uses crt;
var i,j,m,n:longint;
a:array[1..20,1..30]of longint;
b:array[1..30,1..20]of longint;
begin
clrscr;textcolor(11);
write('введите кол-во столбцов: ');readln(m);
write('введите кол-во строк: ');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
for i:=1 to m do
for j:=1 to n do b[j,i]:=a[i,j];
write('исходная таблица:');
for j:=1 to n do
begin
writeln('');
for i:=1 to m do write(' ',a[i,j]);
end;
writeln('');write('Ответ:');
for j:=1 to m do
begin
writeln('');
for i:=1 to n do write(' ',b[i,j]);
end;
readln;
end.