Вариант 1. Задана матрица вещественных чисел размерности m×n. Не используя вспомогательного массива, транспонировать данную матрицу. Размерность матрицы и значения ее элементов ввести с клавиатуры.
Вариант 1. Задана матрица вещественных чисел размерности m×n. Не используя вспомогательного массива, транспонировать данную матрицу. Размерность матрицы и значения ее элементов ввести с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы