program z;
var m: array[1..99,1..99] of integer;
i,j,n: integer;
begin
read(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if i+j-1=n then m[i,j]:=n+1-j else m[i,j]:=0;
write(m[i,j]:3)
end;
writeln
end
end.
Объяснение:
воспользовавшись формулой побочной диагонали в матрице (i+j-1=n) зададим значения элементов применив полный условный оператор
