У кожному рядку матриці знайти найменший елемент і поміняти його місцями з першим елементом рядка. Визначити рядок, в якому перший елемент є найбільшим серед перших елементів інших рядків, переписати його елементи в одновимірний масив та інвертувати порядок їх розташування.

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.

Объяснение:наверное так