Const n=3; var a: array[1..n,1..n] of integer; i,j,c: integer; begin randomize; writeln('исходная матрица: '); for i: = 1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 4); end; writeln; end; for i: =1 to n do for j: =i+1 to n do begin c: =a[i,j]; a[i,j]: =a[j,i]; a[j,i]: =c; end; writeln('транспонированная матрица: '); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln; end; end. пример: исходная матрица: 1 4 4 8 3 9 8 2 1 транспонированная матрица: 1 8 8 4 3 2 4 9 1
Timurr007
15.10.2022
// pascalabc.net 3.1, сборка 1192 от 07.03.2016 begin // инициализация var b: =matrixrandom(3,3,10,99); // вывод writeln('исходная матрица'); for var i: =0 to 2 do begin for var j: =0 to 2 do write(b[i,j]: 3); writeln end; // транспонирование for var i: =0 to 2 do for var j: =i+1 to 2 do if i< > j then swap(b[i,j],b[j,i]); // вывод writeln('транспонированная матрица'); for var i: =0 to 2 do begin for var j: =0 to 2 do write(b[i,j]: 3); writeln end end. тестовое решение: исходная матрица 48 30 15 38 49 19 21 15 41 транспонированная матрица 48 38 21 30 49 15 15 19 41
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составить блок-схему алгоритма и программу вычисления суммы всех двузначных чисел, оканчивающихся на цифру 7 (на pascalabc