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

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

1

Ответы и объяснения

2013-11-09T19:06:10+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.