Сформулируйте квадратную матрицу. На главной диагонали 5, остальные 2.

Question

Информатика

Сашуня

20 февраля, 17:31

Сформулируйте квадратную матрицу. На главной диагонали 5, остальные 2.

+2

Ответы (1)

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

Владлен · Answer 1

Const n = 5;

Var i, j : Byte;

m : array[1 ... n, 1 ... n] of Integer;

Begin

For i:=1 to n do

For j:=1 to n do If ij then m[i, j]:=2 else m[i, j]:=5;

end.