Помогите решить задачу! (двумерные массивы)

Question

Дан двумерный массив. определить, есть в данном массиве столбец в котором имеются одинаковые элементы? (желательно паскаль)

Денис · Accepted Answer

var vse:boolean; 
... 
for j:=1 to N do 
begin 
vse:=true; 
for i:=2 to N do 
if masss[ i ] <> mass[ i-1 ] then 
begin 
vse:=false; 
break; 
end; 
if vse then 
begin 
writeln ('Есть'); 
break; 
end; 
if (vse=false) and (j=N) then writeln ('Нет! '); 
end;