Схема (пред/пост усл. стёр, выписаны в "пробе"):
Код:
i := 0; WHILE i < n DO x[i] := GetLowerBound(a, i); INC(i) END;
i := n - 1;
WHILE x[n - 1] <= GetUpperBound(a, n - 1) DO
(* обработать a[x[0], ...., x[n - 1]] *)
INC(x[n - 1])
ELSIF (i >= 0) & (x[i] >= GetUpperBound(a, i)) THEN
DEC(i)
ELSIF i >= 0 THEN
INC(x[i]);
REPEAT INC(i); x[i] := GetLowerBound(a, i) UNTIL i = n - 1
END
Дописал: схема --- пошагового обхода многомерного массива (а не процедуры IncArray)
Проба:
Код:
StdCoder.Decode ..,, ..fy....3Qw7uP5PRPPNR9Rbf9b8R79FTvMf1GomCrlAy2xhX,Cb2x
hXhC6FU1xhiZiVBhihgmRiioedhgrZcZRiXFfaqmSrtuGfa4700zdGrr8rmCLLCJuyKtYcZRiX
7.2.s,6AT.,6.5Qw7uP51QCPuP7PNN9F9vQAy1xB.gdj,UBxhYhAbf9P0G2sIdvPZntgcghghZ
cZRC8T0E.Ezu.H.hf12.,U08J99SdfJHPNjvQCJuGKfaqmY6MwdONl1QCh0708T,U..w.2YC.,
sUGpmWbBxhYhAbndMHT9NY6Mw.sQq2Y6cwB.0.J71w,IYAE.0.4kl5.86.QC18RdfQHfMf9R9v
Q7ONb17.,.D,,6.I16.M.,U.IZ.2XkD.1.VQ.6.301cUZT1E.s7E.c46.,.16.c8U.E.076i1U
0Ikmj,6.2A2.I16.M.2.J,U.Yr0.B.1cQ,U0o.AU6B.8k,k.4q.kCk.Sp.E3Ua1,E.0E2PP,2e
HJ.3Qw7ONhvETPPPPMR9N9fQbf9b8RO3U.Ay2hgq,.RdJ.0EtD.0E.66,E.0.O.2.fU,23A.6F
rO.0pd8...oZHlWuKmOpoK46.X5.ELKIrGKf.2Um10..IU.U.AU.4.0k,2.myzzzzB1AUC.H,u
1Im.k.y,g,6E2U.2A0kzXGJ0GoGLu0LRymLOqr8ruqKLyKlKKtyKrCqr8rmuGtKrLOroKaoxhk
BhXpZk3hkxbahbmwaaYixIat2bloYnZiVJiohbk2YeAZBgdDZcJZd33YEJidpi3phphh7phYBh
XhgnRbBgV7AdB3eDJeI3Y7phUIbx2YdJalQitRi7phg2YAxhbRbBAVBAVIBfEhcBAV7Yctph,J
imBaq2YxgV7AV7AcGJe,BfUwd4hV7AV7.............................EEaIbGpWSoW8p
Rqk2qUKBcGhV7AVVJbU2eDBdCZe3JeUYeD3Y2BjiB6sCPM0H6ON76NfC,NEZeI1WloaUwd432s
F.RfC,NGR0k4aEc8pbCoWGoe8pW0mXKKuKJs0rm8LVyquuKm0GIaKR0mYu2M8p76H0sCaEVKoX
aIbqk2akUCpdKIdGJIaKEaIb0mx0HLuGrqmMqLK0GN0nIin4ak28pWGpe8Jb0Goipoqp4akWuI
W0mXKKu.UvgV7g,V0.6HTvR9fQ3uP66.Ud.Uv........NvKHPL...i1..HePVOMHfQ,78hOEZ
86l99,NSp76H0M8rN1HcE.aIrumYuKuWGwamR0mYuKLa2arIin4ak242EzaIruGmyKrKKEyId0
GI0HEmnS0GwaGEOGEWGw0GSqXtBZg2YkAZBAV3V7phEVvgV7g,V0.NuPDPGR9N,lYuIEWLR0mU
.T0.UKB6HMOp76.i130ko0GRqHE0nRqk2akfWoYmoW0mo0GS0GaKIbWGwaGEGobqk2ak2morSK
LaIrGbsRfdhfdQbBU7pd13ZdBZBAV7gcCtCPM0m2mIrqk2KIb2YAxBsCqk2.U2xheQbBAV7o8q
.HMON76JfC,NG.k2WLR0Gcy2I8MEZeI.kX.30kYuaD3iZphvgV7AVi3Yu662Y7phEVcYhPphRZ
ZU2hPphRBZvg,S3MGRf971Gobk2aIbcPHtCP.uKc44Ug.a0g6i142Er0GTqHE4HK0GMQbBko00
uqR0mfWoYm2H1XdB,7FT86FvKHHEenSAav2Y7pd13Zd769eH7uCcH9uJFNMN76FnMKnimGEW4d
NLN76FXngfg6OIaRZZUUlgfg222aRZZUkQqJK00lNLN76waRZZUEPqJK00fNLN76YaRZZUkNqJ
K00ZNLN76AaRZZUEMqpIin468J76PN9PN9P,..66JN8PM0HcH6SNFramRkoUkkfW2.R967uHWr
ha4sF91.2ZdBZv2Y7,..ohUgZUAavgV76HTuHV86HeF,7SrePPNAv86tND,tF9ne.Ui3YhkI0G
eWoWuo4aU7YdjNG2ZsB3PU7AdCFwiJr0mK0WRBZBA,98HbOGB86FNO,dDv76VN8,d7sKcDvlX.
.ABH76d0EWKoVWmoam4.MO,dD2aUYe6h6kY.HnI.ZGcKoUGJEaIbCYdtCWrh66pV5Fa..0meuI
eaIa0mo0mS0GrqmMqk2a.KIEKIgaIe0mWuIW0mWsC68.e0Y7uGaQbBA,N0H0HP8rFayqnuGa.M
G6SU,,ABvlK4HK0GP0nIi1eKEenS2avg,S3cO,7D,dPqWm2Y2x71uIbOF6SreOv86v76DWJ,.J
P8N76h,,,eqI0mWu2ME.oBA4,ND,,.Ui,HlJ0mMmGEO1PM0667uPrN1PMFR8F0Jta4MG.RN1Pc
.VeQHfR..7uPPM0VN0bN1HcAHsAPM0XN0dN1H6BHMBPM03M1PM1R96xND4n4qko0GRUU.ABoB7
Ws,sFY7.MMN76HP8rlYko2Y3,PMO,,RP9in4SJYa2WrhuqK.S2f0.ErqmMaGEGob68JFTGsMGM
UGMMGsMGMTGMVGMMGMVGMaGME4qhWrh0Xg2Yic9R79,7SrePML,d8HV7p7WbiVdgVB2Ze2YsR9
66v,...Q30GJaW3ZdHB7W0xVkA3UdFTsF..koA3.7OFk4q.....cP.qEH0GIqk2Wmo0GS24Pkb
8p4aEIaayEM.Uw2Y5hA..AB,d7,,JXyg5D0..eqImWehbdRZloZiohhM8PM0HN1,d8H,koUk22
U7p7MOa0W0RP9X76x76V76JN8PM0ZOF.MOiXsVUI5S2N0.koMJG3Uil4KIbgVB2Ze68HnSg3H7
6B,kSw6K3.UeB3g5.ZN8,d7,,R1...oBaGEi0H76JN83QwdONQcjphoJijZhghgmRiiQ8CIu8L
qGomCrl0ksH3..RtETfPd16F9vQ59.C244.IC...Qii..70,cw7U.2.Y02.A,2U..U,Iklb8Ie
pZhZJinpZHFdKLq6F6.XDJ.QiiIepZhZ7F6.Zz.E.ses,sc6.,k,,UnpZHldGrwmqmGomCb.AS
.c9Ajg,0EtT.,E..W.e30E.cUX5.umUG5.70,E0E...7,,M.,.,.,tcp00kMDy.wnjl.k.E.0.
3gwP.0..I16.M.EJ.6.VQ.E..YVsH4EKithQVs9E3Qw7uPghZ,5uP..Y0,6.,..2,2.M00.lwG
bHESmF3kwL,,AzJEAyIo2oe2H.BN,...
--- end of encoding ---