Сформулируйте массив по образцу

0 0 0 0 0 0 7

0 0 0 0 0 6 0

0 0 0 0 5 0 0

0 0 0 4 0 0 0

0 0 3 0 0 0 0

0 2 0 0 0 0 0

1 0 0 0 0 0 0

Question

Информатика

Симоня

2 августа, 15:11

Сформулируйте массив по образцу

0 0 0 0 0 0 7

0 0 0 0 0 6 0

0 0 0 0 5 0 0

0 0 0 4 0 0 0

0 0 3 0 0 0 0

0 2 0 0 0 0 0

1 0 0 0 0 0 0

+2

Ответы (1)

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

Всеволодушка · Answer 1

Var A:array[1 ... 7,1 ... 7] of byte;

Begin

For var i: = 1 to 7 do

Begin

For var j: = 1 to 7 do

Begin

if (8-i = j) then A[i, j]: = j

else A[i, j]:=0;

Write (A[i, j])

End;

Writeln

End;

End.

Сформулируйте массив по образцу0 0 0 0 0 0 70 0 0 0 0 6 00 0 0 0 5 0 00 0 0 4 0 0 00 0 3 0 0 0 00 2 0 0 0 0 01 0 0 0 0 0 0

Сформулируйте массив по образцу

0 0 0 0 0 0 7

0 0 0 0 0 6 0

0 0 0 0 5 0 0

0 0 0 4 0 0 0

0 0 3 0 0 0 0

0 2 0 0 0 0 0

1 0 0 0 0 0 0