Если Паскаль, вывод «<span>31724100», полагаю</span>
Нц 3 раз
влево
кц
нц 3 раз
вверх
кц
закрасить
нц
пока справа свободно ,то
вправо
закрасить
кц
нц
пока снизу свободно,то
вниз
закрасить
кц
нц
пока слева свободно,то
влево
закрасить
кц
нц
пока сверху свободно,то
вверх
закрасить
кц
Чтобы перейти из десятичной системы счисления в двоичную, нужно выполнить деление столбиком на 2, а остатки, начиная с последнего, и будут являтся ответом:
Const
N = 10;
Var
A:array[1..n,1..n] of real;
i,j:integer;
S:real;
Begin
Randomize;
S:=0;
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random*21-10;
Write(A[i,j]:6:2,' ');
if j > i then S:=S+A[i,j]
End;
WriteLn
End;
WriteLn('S = ',S);
End.