var
a:array[1..10,1..10]of byte;
n,m,i,j,p,pmin,c:integer;
begin
read(n,m);p:=1;pmin:=32000;
for i:=1 to n do
for j:=1 to m do
read(a[j,i]);
for i:=1 to n do begin
for j:=1 to m do
p:=p*a[i,j];
if pmin>p then begin pmin:=p;c:=i;end;
p:=1;end;
writeln('Столбец с наименьшим произведением: ',c);
write('Значение этого столбца: ',pmin);
end. "Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
