Помогите пожалуйста написать программу в Паскаль. Задано количество строк и столбцов матрицы и действительные значения ее элементов. Сформировать и вывести транспонированную матрицу.
Помогите пожалуйста написать программу в Паскаль.
Задано количество строк и столбцов матрицы и действительные значения ее элементов. Сформировать и вывести транспонированную матрицу.
Гость
Ответ(ы) на вопрос:
Гостьconst
e=10000;
var
a:array[1..e,1..e] of real;
i,j,n,m:integer;
k:real;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=i+1 to m do
begin
k:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=k;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы