Задача на двумерный массив

[nagabara]

Среди столбцов заданной целочисленной матрицы, со-держащих только такие элементы, которые по модулю больше 10, найти столбец с минимальным произведением элементов

[fbus]

стучись в аську

[Sna1L]

допустим у вас массив уже заполнен.(ar[1..max1,1..max2] of integer)

ind:=1;//сюда будем заносить номер столбца
sch:=1; //переменная для записи произведения в столбце
for i:=1 to max2 do
sch:=sch*ar[ind,i];

min:=sch;

for i:=2 to max1 do
begin
sch:=1;
for j:=1 to max2 do
sch:=sch*ar[i,j];

if sch<min then 
   begin
   min:=sch;
   ind:=j;
   end;
end;