Разложить десятичные числа по степеням основание число 10951

использовать Робот

алг  столбы

нач

нц пока справа не стена

вправо

кц

нц пока справа стена

закрасить вверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закрасить вверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закрасить вверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закрасить вверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закрасить вверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закрасить вверх

кц

вправо

нц пока снизу не стена

вниз

кц

кон

const M = 10;

const N = 5;

var A: array [1..M,1..N] of integer;

var i,j,cnt: integer;

begin

// Задаем элементы матрицы и вывдим ее на экран

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(101)-35;

 write(A[i,j]:4);

 end;

 writeln();

end;

// Считаем кол-во отрицательных элементов

For i:= 1 to M do

begin

 cnt:=0;

 For j:= 1 to N do

 begin

 if (A[i,j]<0) then cnt:=cnt+1;

 end;

  writeln('Кол-во отрицательных элементов в строке ',i,' : ',cnt);

end;

end.