Дана матрица Z (3,3) заменить все на нули все ее элементы, расположенные на главной…

Var a,b,i,min,j,sum: longint; m: array[1… 3,1… 3] of longint; beginfor i: =1 to 3 dofor j: =1 to 3 doread (m[i,j]); for i: =1 to 3 dom[i,i]: =0; for i: =1 to 3 dobeginwriteln; for j: =1 to 3 dowrite (m[i,j],'); end; end.