Маловероятно, что две единички на 3-й и 4-й позициях обе значат А (мало слов, где есть две А подряд). Значит, это либо буква Й (11), либо АЛ (1-13)
. . Й . . . или . . АЛ. . .
Две первые цифры (26) могут значить либо БЕ, либо Ш:
БЕЙ . . . или БЕАЛ . . или ШЙ . . . или ШАЛ . . .
Второй и третий варианты отбрасываем, а БЕЙ... и ШАЛ... пока оставим.
После БЕЙ идут цифры 3126. Их можно расшифровать как:
3-1-2-6 ВАБЕ
31-2-6 ЭБЕ
3-1-26 ВАШ
3-12-6 ВКЕ
31-26 ЭШ
Приставим БЕЙ спереди к каждому варианту:
БЕЙВАБЕ, БЕЙЭБЕ, БЕЙВАШ, БЕЙВКЕ, БЕЙЭШ - не имеют смысла
Рассмотрим вариант ШАЛ . . . Цифры 126 после него могут значить:
1-2-6 АБЕ
12-6 КЕ
1-26 АШ
Присавим эти варианты к ШАЛ и получим одно осмысленное слово ШАЛАШ, имя существительное, как и требуестя в условии.
ОТвет: ШАЛАШ
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln(4 * a.ColCount * '-');
var nCol := ReadInteger('В каком столбце ищем?');
var C := ReadInteger('На кратность чему проверить?');
if a.Col(nCol - 1).Any(t -> t mod C = 0) then
Writeln('Есть такие элементы')
else Writeln('Таких элементов нет')
end.