Дана матрица Z(3.3) заменить все на нули все её элементы, расположенные на главной диагонали. Преобразованную и исходную матрицу вывести по строкам
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад