Developing.ru

Код: Выделить всё

program zadacha5;
type myarray=array of array of integer;
var A:myarray;//матрица исходная
    rows,cols:integer;

procedure input( var m1:myarray; var rows,cols:integer); {процедура ввода}
var i,j:integer;{счетчик элементов матрицы}
begin
write ('введите количество строк = ');
readln (rows);
write ('введите количество столбцов = ');
readln(cols);
setlength(m1,rows,cols);
for i:=0 to rows-1 do
 for j:=0 to cols-1 do
  begin
  write ('введите элемент [', i+1,',',j+1, '] = ');
  readln(m1[i,j]);{занесение элементов матрицы в память}
  end;
end;

procedure output(m1:myarray; rows,cols:integer);//процедура вывода на экран
var i,j:integer;
begin
for i:=0 to rows-1 do
 begin
  for j:=0 to cols-1 do
  write(m1[i,j]:3);{вывод с шагом 3}
  writeln;
 end;
readln;
end;

procedure perest(m1:myarray; rows,cols:integer); {функция получения траспонированной матрицы}
var i,j :integer;
    m2 : myarray;
begin
for i:=0 to rows-1 do
  for j:=0 to cols-1 do
  m2[j,i]:=m1[i,j];{транспонирование}
write(m2[j,i]:3);
end;


begin
input(A,rows,cols);
output(A,rows,cols);
writeln('транспонированная матрица : ');
perest(A,rows,cols);
readln;
end.