Сформулируйте массив по образцу 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

Вопрос школьника по предмету Информатика

Сформулируйте массив по образцу
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

Ответ учителя по предмету Информатика

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.