Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Пожалуйста помогите!!!
Дана матрица А(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
2 | Автор: Berestovskiy | 2012-01-09, 15:19   |  Репутация: [ + 211 ]
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
3 | Автор: Berestovskiy | 2012-01-11, 00:02   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: