uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,k,p,max:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
max:=0;
k:=1;
for j:=1 to m do
begin
p:=1;
for j:=i to n do p:=p*a[i,j];
if p > max then
begin
max := p;
k := j;
end;
end;
writeln('Максимальное произведение - ',max, ', номер столбца - ', k);
readln;
end.