Вариант 1. Задана матрица вещественных чисел размерности m×n. Не используя вспомогательного массива, транспонировать данную матрицу. Размерность

+ 0 -

Bavrotskaya

01 февр. 2015 г., 15:45:20 (9 лет назад)

var
    a: array[,] of integer;
    i,j, t,n,m,k: integer;
begin
write('Введите размерность матрицы m и n: '); 
readln(m,n);
if n>m then k:=n else k:=m;
setlength(a,k+1,k+1);     
writeln ('Вводите элементы матрицы по одному: ');   
for i := 1 to m do
   for j:=1 to n do
      readln(a[i,j]);
for i:=1 to k do
  for j:=i to k do
    begin
    t:=a[i,j];
    a[i,j]:=a[j,i];
    a[j,i]:=t;
    end;
writeln; 
writeln ('Транспонированная матрица: ');    
for i := 1 to n do
       begin
       for j:=1 to m do
         write (a[i,j]:4);
       writeln;
       end;
end.

+ 0 -

Murluck

01 февр. 2015 г., 18:39:14 (9 лет назад)

у тебя матрица A[i][j] транспонированная - A[j][i] и все

+ 0 -

Dindron

01 февр. 2015 г., 20:09:52 (9 лет назад)

ммм... я так понимаю тебе программу надо написать?