верхняя треугольная матрица

Ответ от Fl0[гуру]
Ну, сверху главной диагонали или снизу.. .

Нижний треугольник заполняем нулями (включая диагональ)
for i:=1 to N do
for j:=1 to i do
mat[i,j]:=0;

Верхний треугольник заполняем нулями (включая диагональ)
for i:=1 to N do
for j:=i to N do
mat[i,j]:=0