Матрица

[student_10]

Сформулировать из некоторой матрицы A(n,n) верхнетреугольную матрицу B(n,n) (все элементы ниже главной диагонали нулевые), нижнетреугольную матрицу C(n,n) (все элементы выше главной диагонали нулевые) и диагональную матрицу D(n,n) (все элементы нули, кроме главной диагонали).

[Abstraction]

Сформулировать из некоторой матрицы A(n,n) верхнетреугольную матрицу B(n,n)

В смысле - "сформулировать"? Перевести в подходящий базис? Так не любая матрица приводима к диагональной форме.

[marwell.]

Может "сформировать"?

[Mad_Cat]

for i:=1 to n do
for J:=1 to n do
begin
if i<=j then  b[i,j]:=a[i,j]
else b[i,j]:=0;
if i>=j then c[i,j]:=a[i,j]
else c[i,j]:=0;
if i=j then d[i,j]:=a[i,j]
else d[i,j]:=0;
end;