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

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

Question

Информатика

Нуся

29 апреля, 07:30

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Никола · 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.