Честно скажу, что я в этом не спец., но на примере другой матрицы решу) Решайте по-моему примеру и тогда сами научитесь:)
Вот матрица:
1 2 3 4 5 6
0 1 2 3 4 5
0 0 1 2 3 4
Код паскаль:
uses crt;
var c :array [ 1..50 ,1..50 ] of integer;
i ,q, n,m:integer;
begin
i:= 1;
writeln('введи размер матрицы);
read (n,m );
for q :=1 to m do
c[i ,q]:= q;
for i :=2 to n do
for q :=1 to m do
if qc[i ,q]:= 0 else
c[i ,q]:= q-i+1 ;
for i :=1 to n do begin
writeln;
for q :=1 to m do
write (c[ i,q], ' ');
end;
readln ;