с домашнем заданием по информатике

208 159 209 128 208 184 209 128 208 190 208 180 208 176 032 208 191 208 190 209 129 209 130 208 190 209 143 208 189 208 189 208 176 032 208 180 208 190 032 208 191 208 190 209 128 209 139 046 046 046 013 010 208 145 209 139 208 178 208 176 208 181 209 130 044 032 209 135 209 130 208 190 032 208 177 208 181 208 183 032 208 178 208 184 208 180 208 184 208 188 208 190 208 185 032 208 191 209 128 208 184 209 135 208 184 208 189 209 139 013 010 208 151 208 176 208 189 208 190 209 129 208 184 209 130 032 208 178 208 180 209 128 209 131 208 179 032 208 191 208 190 208 180 208 189 208 190 208 182 208 184 208 181 032 208 179 208 190 209 128 209 139 013 010 208 157 208 176 032 208 188 208 181 209 129 209 130 208 190 032 208 178 209 129 208 181 208 188 208 184 032 208 191 209 128 208 184 208 183 208 189 208 176 208 189 208 189 208 190 208 185 032 208 178 208 181 209 128 209 136 208 184 208 189 209 139 033

В начале мы создаем массив случайных элем.
Потом работаем с ним.
Нам нужны 2 переменные:
1 - переменная, для сохранения результата (номера).
2 - переменная флажок.
Мы обходим весь массив ПО СТОЛБЦАМ.
В начале обхода конкретного столбца переменной флажка присвоим 1.
Сравниваем текущий элемент столбца с последующим,
если они не равны то ставим флажок 0

Код:
//Размерность массива
const n = 3;
//Сам массив
var 
ar : array[1..n,1..n] of integer;
//Переменные для работы с массивом
var 
i,j : integer; 
//Переменные для поиска столбца
//f - переменная флажок, которая по окончанию обхода столбца будет
//показывать одинаковы ли элементы в нем
//numb - переменная, в которой сохраним номер столбца с
//одинаковыми значениями элементов.
var 
f,numb : integer;
begin
//Создание и вывод на экран массива
//Элементы генерируются случайным образом
//  
for i:=1 to n do 
begin   
for j:=1 to n do   
begin     
ar[i,j] := random(2);     
write(ar[i,j]:3);   
end;   
writeln;   
end;  
// 

//Вот сам алгоритм поиска
//
//Записываем в numb значение -1
//Если в процессе работы значение не изменится (-1)
//То означает, что в массиве нет одинаковых столбцов
  numb := -1; 

//Идем по массиву
//
for j:=1 to n do
//Момент начала конкретного j столбца  
  begin    
//записываем в f значение 1
  //Предполагаем, что столбец одинаков
  //Если в конце обхода конкретного столбца значение f=1
  //Значит, что данный столбец одинаков
  f := 1;    
 
//Идем по столбцу
// n-1
//(т.к сравниваем текущий со следующим)
for i:=1 to n-1 do   
begin  
//Сравниваем текущий элемент столбца, со следующим     
if (ar[i,j] <> ar[i+1,j]) then
    //Если они не равны, то изменяем значение флажка f на 0       
    f := 0;   
end; 
//Конец обхода конкретного столбца  
 
//Если столбец одинаков   
if (f = 1) then
    //то записываем его номер в numb     
    numb := j;  
end;  
//  

//Вывод результата 
if (numb <> -1) then   
writeln('Столбец №: ',numb) 
else   
writeln('Нет ни одного одинакового столбца');    
end.