Îëèìïèàäíûå çàäà÷è ïî èíôîðìàòèêå - ÷àñòü 8
if mx = 0 then åñëè òõ = 0 òî
mx = d: mn = d mx = d: mn = d
ml = kl: m2 = k2 ml = k1: m2 = k2
m3 = k3: m4 = k4 m3 = k3: m4 = k4
nl = kl: n2 = k2 n1 = k1: n2 = k2
n3 = k3: n4 = k4 n3 = k3: n4 = k4
elseif d > mx then èíåc d > mx òî
mx = d mx = d
ml = kl: m2 = k2 m1 = k1: m2 = k2
m3 = k3: m4 = k4 m3= k3: m4 = k4
elseif d < mn then èíåc d < mn òî
mn = d mn = d
nl = kl: n2 = k2 n1 = k1: n2 = k2
n3 = k3: n4 = k4 n3 = k3: n4 = k4
end if êåñëè
next 1 êöèêë
? «ìàêñèìàëüíûé ìàðøðóò:» âûâîä («ìàêñèìàëüíûé ìàðøðóò:»)
? ml; m2; m3; m4 âûâîä (m1; m2; m3; m4)
? «äëèíà =»; mx âûâîä («äëèíà =»; mx)
? «ìèíèìàëüíûé ìàðøðóò:» âûâîä («ìèíèìàëüíûé ìàðøðóò:»)
? nl; n2; n3; n4 âûâîä (n1; n2; n3; n4)
? «äëèíà =»; mn âûâîä («äëèíà =»; mn)
end êîí
vvdan: 'ââîä äàííûõ àëã «ââîä äàííûõ»
restore tchks çàãðóçêà-òî÷åê
for k = 1 to n îò k = 1 äî ï