Транспонирование матрицы

@zinsas · Регистрация: 02.12.2017

Author24 — интернет-сервис помощи студентам

Pascal

var 
a: array[1..10,1..10] of integer; 
n,i,j,p,q,tmp: integer; 
begin 
randomize; 
writeln('Исходный массив:'); 
write('Введите размеры матрицы n: '); 
readln(n); 
for i:=1 to 10 do 
begin 
for j:=1 to 10 do 
begin 
a[i,j]:=random(99)+1; 
write(a[i,j]:4); 
end; 
writeln; 
end; 
write('Введите два числа <=10 : '); 
readln(p,q); 
for i:=1 to n do 
begin 
tmp:=a[p,i];
a[p,i]:=a[i,q]; 
a[i,q]:=tmp; 
end; 
writeln('Преобразованный массив:'); 
for i:=1 to n do 
begin 
for j:=1 to n do 
write(a[i,j]:4); 
writeln; 
end; 
readln; 
end.

что нужно добавить чтобы все столбы менялись на все строки?

@ZX Spectrum-128 · 09.06.2018, 09:04

Транспонирование матрицы

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	09.06.2018, 09:04	2
	Транспонирование матрицы 0