Наверное под обеими!
Код
Uses Crt;
const n=4;
type matrix=array[1..n,1..n] of byte;
var
a:matrix; i,j:byte;
Begin
for i:=1 to n do
begin
for j:=1 to n do
read(a[i,j]);
writeln;
end;
for i:=1 to n do
for j:=1 to i-1 do
begin
a[i,j]:=0;
end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:2);
writeln;
end;
end.
вот прога заменяет все елементы под главной диагональю!!
Сделай аналогично что бы заменяла все елементы под обеими диагоналями!