Кто нибудь может написать программу транспонирования обычной матрицы из 9 чисел? заранее

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

// 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

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

 

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.