<br>
const<br>
M = 10;<br>
N = 5;<br>
var <br>
a: array[1..N,1..M] of integer;<br>
i,j: byte;<br>
max, min: integer;<br>
begin<br>
randomize;<br>
max := -1;<br>
for j:=1 to M do begin<br>
min := 200;<br>
for i:=1 to N do begin<br>
a[i,j] := random(200);<br>
if a[i,j] < min then <br>
min := a[i,j];<br>
end;<br>
if min > max then <br>
max := min;<br>
end;<br>
for i:=1 to N do begin<br>
for j:=1 to M do<br>
write(a[i,j]:5);<br>
writeln;<br>
end;<br>
writeln('Maximum of the minimum: ', max);<br>
end.<br>
Объяснение:
если не правильно то сор
Из коровьего масла и овечьего сыра в рыбачьей лодке волчий аппетит из беличьего меха ребячих игр заячий хвост о лисей хитрости перед медвежей берлогой волчьего следа собачьим чутьем лисий хвост птичьих голосов охотничьи принадлежности рыбей чешуей о собачьей конуре о барсучьей норе