÷òåíèå (òîâ, ñ, ò) read tv$, ñ, m
ïðè òîâ = «» âûõîä if tv$ = «» then exit do
k := k + 1 k = k + 1
âûâîä (òîâ, ñ, ò) ? fv$; ñ; m
s :=s + cm s= s + c(m
åñëè k = 1 òî if k = 1 then
max
:= c×m max = c×m
ToâMax
:= òîâ ÒÌ$ = tv$
èíåñ c(m > max òî elseif c(m > max then
max
:= c×m max = c×m
ToâMax := òîâ TM = tv$
êåñëè end if
êöèêë loop
âûâîä («cyììa=»,s) ? «cyììa=»,s
âûâîä («Ìàêñèìóì») ? «Ìàêñèìóì»
âûâîä (ToâMax, max) ? TM$, max
êîí end
Ñðàâíåíèå ðåçóëüòàòîâ âûïîëíåíèÿ ïðåäñòàâëåííûõ àëãîðèòìà è ïðîãðàììû ñ îïèñàíèåì âûáðàííîãî ñïîñîáà ðåøåíèÿ ïîêàçûâàåò èõ ïîëíîå ñîîòâåòñòâèå äðóã äðóãó.
Àëãîðèòì Ðåçóëüòàòû âûïîëíåíèÿ
àëã «ñóììà è ìàêñèìóì»
íà÷
âûâîä («ñïèñîê òîâàðîâ») ñïèñîê òîâàðîâ
âûâîä («òîâàð öåíà êîë-âî») òîâàð öåíà êîë-âî