Вот решение для целочисленной матрицы. Легко переделывается под любые нужды.
Code
Uses CRT;
Const n = 4;
Var i,j: Byte;
a: Array[1..n,1..n] of Integer;
Begin
ClrScr;
Randomize;
For i := 1 to n do
Begin
For j := 1 to n do
Begin
a[i,j] := Random(32);
Write(a[i,j]:4);
End;
Writeln;
End;
Writeln; Writeln; Writeln;
For j := 1 to n do
Begin
For i := 1 to n-j+1 do
Begin
Write(a[i,j]:4);
End;
For i := j+1 to n do
Begin
Write(a[n-j+1,i]:4);
End;
Writeln;
End;
ReadKey;
End.
