Petrofan
для каждого столбца или строки выполняем проход по всем его елементам и делаем что-то типа
if type = lasttype then
count = count + 1
else
count = 1
endif
if count = 3 then do_something()
(не забываем про первоначальные установки переменных, думаю lasttype сначала надо сделать отличное от всех типов)
смещать елементы можно так, к примеру ищез елементы k (количество) на позиции i в столбце j, считаем что верх столбика это i = 0
тогда прокручиваем цикл
for z:=0 to i-k
a[z+k] = a[z]
next
for z:= 0 to k
a[z] = newelement()
next
(вроде не ошибся с крайними индексами, пишу утром код в браузере)
идея в том что елементы падают только сверху, потому даже удалая 3 елемента в строке мы должны пройтись по трём столбцам где были эти елементы и сместить там елементы
ps. меня радует что у тебя появляются конкретные проблемы которые тебе не понятны
хотя стоит всё же потренироватся на таких чисто логических задачах по работе с матрицами