Кто нибудь может написать программу транспонирования обычной матрицы из 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

program pyat;

var a, b, c, d ,f, p : integer;

begin

writeln ('vvedite dlini storon pyatiugolnika');

readln (a);

readln (b);

readln (c);

readln (d);

readln (f);

p: = a+b+c+d+f;

writeln ('perimetr raven', p);

readln;

end.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.