Транспортировать матрицу

[Вадим Мошев]

Сообщение от sidestep

Не получается написать все-таки много вопросов. можете исходный код написать, я по нему буду разбираться и вопросы задавать в том, что не понятно. Заранее спасибо.

Можно

var i, j: integer;
    a: array [1..10, 1..10] of integer;


begin

randomize;
   for i:=1 to 10 do
                for j:=1 to 10 do // заполняем матрицу
                            A[i, j]:=Random(100);

// выводим на экран исходную, НО В ТРАНСПОНИРОВАННОМ ВИДЕ
  for i:=1 to 10 do
              begin
                for j:=1 to 10 do write(A[j, i], ' ');
                writeLn;
              end;

  readLn;



end.

[sidestep]

Если вам надо вывести ИСХОДНУЮ МАТРИЦУ, но в транспонированном виде, то зачем вы стараетесь транспонировать её программно, то есть преобразовываете массив?


как сделать надо тогда?

[Вадим Мошев]

Ну вот, я вам написал в посте выше
вот ссылка на него http://www.programmersforum.ru/showp...4&postcount=24

[sidestep]

еще вопрос насчет доработки
как сделать чтобы мы вводили число n - кол-во строк и столбцов сами, а также сами матрицу затем с клавиатуры

[Вадим Мошев]

Для этого вам потребуется использовать процедуру Read.
Например, для того, чтобы ввести число n, надо написать:

Write('n = '); Read(n);

Остальные числа (m и матрицу) попробуйте вести сами.