Буду рад за
Задачи с С++.
12.74. Дан двумерный массив. Найти число пар одинаковых соседних элементов.
В качестве соседних рассматривать:
а) только элементы, расположенные в одной строке;
б) только элементы, расположенные в одном столбце;
в)* элементы, расположенные в одной строке и в одном столбце.

16

Объяснение:

S := 0 // Переменная S = 0

   нц для i от 1 до 2 // Начинаем цикл от 1 до 2 включительно

       нц для j от 2 до 3 // Начинаем цикл от 2 до 3 включительно

           S := S + i + j // S = S + i + j

       кц // Конец цикла

   кц // Конец цикла

Всего будет 4 итерации (повторов) у циклов, т. к. первый цикл выполняется 2 раза, а вложенный в него второй цикл выполняется также 2 раза ⇒ 2 * 2 = 4

Итерация 1:

S = 0 // i = 1 // j = 2

S = 0 + 1 + 2 = 3

Итерация 2:

S = 3 // i = 1 // j = 3

S = 3 + 1 + 3 = 7

Итерация 3:

S = 7 // i = 2 // j = 2

S = 7 + 2 + 2 = 11

Итерация 4:

S = 11 // i = 2 // j = 3

S = 11 + 2 + 3 = 16

Uses graphABC;
const
  c: array [1..7, 1..3] of byte = ((50, 50, 133), (0, 0, 255), (0, 160, 227), (0, 255, 0), (255, 255, 0), (239, 127, 26), (255, 0, 0));

var
  i: byte;

procedure ColArc(x, y: integer; r: integer; nc: byte);
begin
  SetPenColor(rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
  Arc(x, y, r + 10, 0, 180);
  Arc(x, y, r - 10, 0, 180);
  line(x - r - 11, y - 2, x - r + 11, y - 2);
  line(x + r - 11, y - 2, x + r + 11, y - 2);
  floodfill(x, y - r, rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
end;

begin
  setwindowsize(500, 300);
  for i := 1 to 7 do
    ColArc(250, 300, 100 + (i * 20), i);
end.