Напишите программу для транспонирования квадратной матрицы - Pascal ABC
Формулировка задачи:
Напишите программу для транспонирования* квадратной матрицы 5*5. Все элементы на главной диагонали матрицы заполните нулями, нижняя и верхняя части заполняются случайным образом числами из диапазона от 1 до 9. Сделайте контрольный вывод исходной матрицы, а затем транспонированной. Транспонирование матрицы – это операция, при которой элементы матрицы отражаются симметрично относительно главной диагонали, при этом элементы меняются местами
Решение задачи: «Напишите программу для транспонирования квадратной матрицы»
textual
Листинг программы
const n=5; var a:array[1..n,1..n] of byte; i,j,x:byte; begin randomize; writeln('Исходная матрица'); for i:=1 to n do begin for j:=1 to n do begin if i=j then a[i,j]:=0 else a[i,j]:=1+random(9); write(a[i,j]:2); end; writeln; end; for i:=2 to n do for j:=1 to i-1 do begin x:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=x; end; writeln('Транспонированная матрица'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:2); writeln; end; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д