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

Question

Информатика

Ипполита

9 декабря, 00:58

Сформулируйте квадратную матрицу. На главной диагонали 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.