Программа которая считывает с клавиатуры матрицу 12х12 и осуществляет поиск минимального элемента, принадлежащий множеству элементов, расположенных в нечётных столбцах таблицы
min := matrix[1, 1];
for i := 1 to 12 do
for j := 1 to 6 do
if matrix[i, j * 2 - 1] < min then min := matrix[i, j * 2 - 1];
writeln(min) Просто обходим в цикле не всю матрицу, а только нечётные столбцы.