Дана матрица Z(3.3) заменить все на нули все её элементы, расположенные на главной диагонали. Преобразованную и исходную матрицу вывести по строкам

Ответы:

Var a,b,i,min,j,sum:longint,

m:array[1..3,1..3] of longint,

begin

for i:=1 to 3 do

for j:= 1 to 3 do

read(m[i,j]),

for i:=1 to 3 do

m[i,i]:=0,

for i:=1 to 3 do

begin

writeln,

for j:= 1 to 3 do

write(m[i,j], ),

end,

end.