Дана матрица А(n,n). Транспонировать матрицу(заменить строки столбцами)
Мой вариант решения:
program transpor;
var a,b: array [1..n,1..n] of integer;
i,j,n: integer;
begin
readln (n);
for i:=1 to n do
for j:=1 to n do
readln (a[i,j]);
b [j,i]:=a[i,j];
for i:=1 to n do
for j:=1 to n do
writeln (b[i,j]);
end.
№ 1 | Автор: neznayka |
2012-01-08, 19:03 | Изменено: neznayka - Вт, 2012-01-10, 14:20
|
Репутация: [ + 0 ]
|
|
|
|
что сделать нужно?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a:array[1..100,1..100]of integer;
i,j,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[j,i]);
for i:=1 to n do
for j:=1 to n do
write(a[i,j]);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
