Pascal.

[yul111-95]

Среди столбцов целочисленной матрицы А(n,m) найти номер столбца с наименьшим произведением элементов.

[Sciv]

randomize;
min:=1;
readln(n,m);
for j:=1 to m do begin
  if j>1 then p1:=p else p1:=1;
  p:=1;
  for i:=1 to n do begin
    a[i,j]:=random(20)+1;
    p:=p*a[i,j];
  end;
  if (p<p1) and (j<>1) then min:=j;
end;
writeln(min);

Как-то так. не проверял

P.S. Элементарную вежливость еще никто не отменял.

[Poma][a]

Не смотрел весь код, увидел лишь :

min:=1;

А что сщет отрицательных чисел ?

[Stilet]

Согласен:

 
...
a[i,1]:=random(20)+1;
 p:=a[i,1];
  for i:=2 to n do begin
...

[yul111-95]

Спасибо большое!

[eoln]

Учитывая

a[i,j]:=random(20)+1;

всё нормально

[Sciv]

Сообщение от Poma][a

Не смотрел весь код, увидел лишь :

min:=1;

А что сщет отрицательных чисел ?

Рома, писал, что говорится, "на коленке". Это вообще номер столбца - как в задании сказано