option explicit
dim s,k,i,j,max,min,a
privat sub cmdstart_click()
pic1.cls
redim a(1 to 5,1 to 3)
pic1.scale(0,0)-(5+1,3+1)
randomize:pic1.forecolor=vbblue
for i=1 to 5
for j=1 to 3
a(i,j)=int(rnd*100):pic1.currentx=j
pic1.currenty=i:pic1.print a(i,j)
next
next
max=a(1,1)
min=a(1,1)
for i=1 to 5
for j=1 to 3
if a(i,j)>max and a(i,j)<min then
end if
next
next
pic1.forecolor=vbred:pic1.print max, min
end sub
3 л: 8 л:
1. 3 0 (налить 3л)
2. 3 3 (перелить из 3л в 8л и налить в 3л.)
3. 0 6 (перелить из 3л в 8л)
4. 3 6 (налить 3л)
5. 1 8 (перелить из 3л в 8л)
6. 1 0 (вылить 8 л)
7. 0 1 (перелить из 3л в 8л)
8. 3 1 (налить 3л)
9. 0 4 (перелить из 3л в 8л)
10. 3 4 (налить 3л)
11. 0 7 (перелить из 3л в 8л)
Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ