Робот движется вдоль стены, профиль которой показан на рисунке, от начального положения до конца стены. Необходимо закрасить все внутренние углы стены, как показано на примере. Размеры стены могут быть произвольны.

1) Код программы:

const N = 10;

var a:array[1..N] of integer;

i:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-100, 100);

   write(a[i], ' ');

 end;

 writeln();

 writeln('Отрицательные элементы, кратные 3: ');

  for i:=1 to N do begin

   if ((a[i] < 0) and (a[i] mod 3 = 0)) then

     write(a[i], ' ');

 end;

end.

2) Код программы:

const N = 8;

var a:array[1..N] of integer;

i, sum:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-100, 100);

   write(a[i], ' ');

 end;

 sum:=0;

 writeln();

 writeln('Сумма нечётных элементов, больше 10: ');

  for i:=1 to N do begin

   if ((a[i] > 10) and (a[i] mod 2 = 1)) then

     sum:= sum + a[i];

 end;

 write(sum);

end.

3) Код программы:

const N = 10;

var a:array[1..N] of integer;

i, kol:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-5, 5);

   write(a[i], ' ');

 end;

 kol:=0;

 writeln();

 writeln('Количество элементов, равных нулю с чётными индексами: ');

  for i:=1 to N do begin

   if ((a[i] = 0) and (i mod 2 = 0)) then

     kol:= kol + 1;

 end;

 write(kol);

end.

а=11         b=3

a=11-2     b=b+a

         a<2?-нет,так как 2<9

Возвращаемся в начало:

а=9-2       b=b+3

         7<2?-нет,так как 2<7

Возвращаемся в начало:

а=7-2        b=b+3

        5<2?-нет,так как 2<5

Возвращаемся в начало:

a=5-2        b=b+3

       3<2?-нет,так как 2<3

Возвращаемся в начало:

a=3-2        b=b+3

        1<2?-да,значит идем дальше:

b=b+a (b=3+1)

                4<=1?-нет,идем дальше:

а=а+3        b=b-a

a=4            b=4-4 (0)

Возвращаемся назад:

             0<=1-да,значит:

             Конец.

b=0