Question

помогите люди)). Дана квадратная целочисленная матрица размера 4х4. Заменить нулями элементы матрицы, лежащие на главной диагона

помогите люди)). Дана квадратная целочисленная матрица размера 4х4. Заменить нулями элементы матрицы, лежащие на главной диагонали.

В bordland paskal . задача на двумерный массив

Answer 1

Const
  n = 4;

var
  a: array[1..n, 1..n] of integer;
  i, j: integer;

begin
  for i := 1 to n * n do
    a[i mod n + 1, (i-1) div n + 1] := random(10);
 
  for i := 1 to n do
  begin
    writeln();
    for j := 1 to n do
    begin
      if i = j then a[i, j] := 0;
      write(a[i, j]:3);
    end;
  end;
end.