profile
Опубликовано 6 лет назад по предмету Информатика от natali7456

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

  1. Ответ
    Ответ дан MagAragorn
    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.
Самые новые вопросы