ПРИМЕЧАНИЕ : Перед фрагментом текста с новой ориентацией страниц и после него будут автоматически вставлены разрывы раздела. Если документ уже разбит на разделы, можно щелкнуть в любом месте нужного раздела (либо выделить их несколько), а затем изменить ориентацию страниц только в выбранных разделах.
К началу страницы
Если в этой статье нет ответа на ваш вопрос, вы можете обратиться за к агенту поддержки OmniTech. В течение ограниченного периода пользователям, обратившимся впервые, предоставляется бесплатная поддержка (до 15 минут).
Слушай а вот это не то просто похоже на мой вопрос
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.
Объяснение: