Слушай а вот это не то просто похоже на мой вопрос
var
m:array[0..5,0..5] of integer;
min,pr,i,j:integer;
begin
pr := 1;
writeln('mtrx: ');
for i := 0 to 5 do begin
min := 10000;
for j := 0 to 5 do begin
m[i,j] := random(10)+1;
write(m[i,j]:4);
if min>m[i,j] then min := m[i,j];
end;
writeln;
pr := pr*min;
end;
writeln('res: ',pr);
end.
Объяснение: