Desynced Forex

//+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
//|                                                                                                                                                           ZH_Dynamic_Arrays_Lib 0-80108.mq4|
//|                                                                                                                                                           Copyright © Zhunko               |
//|08.01.2008                                                                                                                                                 ÌF ZHUNKO vadim@zhunko.ru        |
//+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
//| ÍÀÁÎÐ ÔÓÍÊÖÈÉ ÄËß ÝÌÓËßÖÈÈ ÄÈÍÀÌÈ×ÅÑÊÈÕ ÌÀÑÑÈÂÎÂ.                                                                                                                                          |
//| Ôóíêöèè îáðàùàþòñÿ ê îäíîìåðíîìó ìàññèâó, êàê ê ìíîãîìåðíîìó.                                                                                                                              |
//+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
//+ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñ ëîãè÷åñêèìè äàííûìè. ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ+
//| 1.Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".==========================================================================================================================+
//|   BoolArrayDynamicDimension2 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                        |
//|                               ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                 |
//|                               óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,             |
//|                               1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                            |
//|   int BoolArrayDynamicDimension2 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int Cell_0, int Cell_1, bool Value, bool Array[]);            |
//| 2.Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".--------------------------------------------------------------------------------------------------------------------------+
//|   BoolArrayDynamicDimension3 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                        |
//|                               ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                 |
//|                               óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè,           |
//|                               íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                     |
//|   int BoolArrayDynamicDimension3 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int Cell_0, int Cell_1,                  |
//|                                   int Cell_2, bool Value, bool Array[]);                                                                                                                   |
//| 3.Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".-----------------------------------------------------------------------------------------------------------------------+
//|   BoolArrayDynamicDimension4 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                        |
//|                               ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                 |
//|                               óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè,       |
//|                               íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,                |
//|                               1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                            |
//|   int BoolArrayDynamicDimension4 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                     |
//|                                   int Cell_0, int Cell_1, int Cell_2, int Cell_3, bool Value, bool Array[]);                                                                               |
//| 4.Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".--------------------------------------------------------------------------------------------------------------------------+
//|   BoolArrayDynamicDimension5 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                        |
//|                               ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                 |
//|                               óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,  |
//|                               íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè,                |
//|                               íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                  |
//|   int BoolArrayDynamicDimension5 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                     |
//|                                   int SizeDimension_4, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, bool Value, bool Array[]);                                              |
//| 5.Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".-------------------------------------------------------------------------------------------------------------------------+
//|   BoolArrayDynamicDimension6 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                        |
//|                               ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                 |
//|                               óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,  |
//|                               óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè,               |
//|                               íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,              |
//|                               1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                            |
//|   int BoolArrayDynamicDimension6 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                     |
//|                                   int SizeDimension_4, int SizeDimension_5, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, int Cell_5, bool Value, bool Array[]);             |
//+ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñ äàííûìè äâîéíîé òî÷íîñòè. æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ+
//| 6.Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".---------------------------------------------------------------------------------------------------------------------+
//|   doubleArrayDynamicDimension2 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,           |
//|                                 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                          |
//|   int doubleArrayDynamicDimension2 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int Cell_0, int Cell_1, double Value, double Array[]);      |
//| 7.Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".---------------------------------------------------------------------------------------------------------------------+
//|   doubleArrayDynamicDimension3 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè,         |
//|                                 íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                   |
//|   int doubleArrayDynamicDimension3 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int Cell_0, int Cell_1, int Cell_2,    |
//|                                     double Value, double Array[]);                                                                                                                         |
//| 8.Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".------------------------------------------------------------------------------------------------------------------+
//|   doubleArrayDynamicDimension4 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè,     |
//|                                 íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,              |
//|                                 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                          |
//|  int doubleArrayDynamicDimension4 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3, int Cell_0,        |
//|                                    int Cell_1, int Cell_2, int Cell_3, double Value, double Array[]);                                                                                      |
//| 9.Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".---------------------------------------------------------------------------------------------------------------------+
//|   doubleArrayDynamicDimension5 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,|
//|                                 íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè,              |
//|                                 íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                |
//|   int doubleArrayDynamicDimension5 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                   |
//|                                     int SizeDimension_4, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, double Value, double Array[]);                                        |
//|10.Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".--------------------------------------------------------------------------------------------------------------------+
//|   doubleArrayDynamicDimension6 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,|
//|                                 óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè,             |
//|                                 íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,            |
//|                                 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                          |
//|   int doubleArrayDynamicDimension6 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                   |
//|                                     int SizeDimension_4, int SizeDimension_5, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, int Cell_5, double Value, double Array[]);       |
//+ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñ öåëî÷èñëåííûìè äàííûìè.ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ+
//|11.Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".-----------------------------------------------------------------------------------------------------------------------+
//|   IntArrayDynamicDimension2 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                         |
//|                              ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                  |
//|                              óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,              |
//|                              1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                             |
//|   int IntArrayDynamicDimension2 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int Cell_0, int Cell_1, int Value, int Array[]);               |
//|12.Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".-----------------------------------------------------------------------------------------------------------------------+
//|   IntArrayDynamicDimension3 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                         |
//|                              ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                  |
//|                              óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè,            |
//|                              íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                      |
//|   int IntArrayDynamicDimension3 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int Cell_0, int Cell_1, int Cell_2,       |
//|                                  int Value, int Array[]);                                                                                                                                  |
//|13.Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".--------------------------------------------------------------------------------------------------------------------+
//|   IntArrayDynamicDimension4 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                         |
//|                              ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                  |
//|                              óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè,        |
//|                              íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,                 |
//|                              1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                             |
//|   int IntArrayDynamicDimension4 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3, int Cell_0,          |
//|                                  int Cell_1, int Cell_2, int Cell_3, int Value, int Array[]);                                                                                              |
//|14.Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".-----------------------------------------------------------------------------------------------------------------------+
//|   IntArrayDynamicDimension5 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                         |
//|                              ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                  |
//|                              óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,   |
//|                              íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè,                 |
//|                              íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                   |
//|   int IntArrayDynamicDimension5 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3, int SizeDimension_4, |
//|                                  int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, int Value, int Array[]);                                                                      |
//|15.Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".----------------------------------------------------------------------------------------------------------------------+
//|   IntArrayDynamicDimension6 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                         |
//|                              ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,                  |
//|                              óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,   |
//|                              óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè,                |
//|                              íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,               |
//|                              1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                             |
//|   int IntArrayDynamicDimension6 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                      |
//|                                  int SizeDimension_4, int SizeDimension_5, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, int Cell_5, int Value, int Array[]);                |
//+ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñî ñòðîêîâûìè äàííûìè.æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ+
//|16.Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".--------------------------------------------------------------------------------------------------------------------------+
//|   StringArrayDynamicDimension2 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,           |
//|                                 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                          |
//|   string StringArrayDynamicDimension2 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int Cell_0, int Cell_1, string Value, string Array[]);   |
//|17.Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".--------------------------------------------------------------------------------------------------------------------------+
//|   StringArrayDynamicDimension3 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè,         |
//|                                 íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                   |
//|   string StringArrayDynamicDimension3 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int Cell_0, int Cell_1,             |
//|                                        int Cell_2, string Value, string Array[]);                                                                                                          |
//|18.Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".-----------------------------------------------------------------------------------------------------------------------+
//|   StringArrayDynamicDimension4 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè,     |
//|                                 íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,              |
//|                                 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                          |
//|   string StringArrayDynamicDimension4 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3, int Cell_0,    |
//|                                        int Cell_1, int Cell_2, int Cell_3, string Value, string Array[]);                                                                                  |
//|19.Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".--------------------------------------------------------------------------------------------------------------------------+
//|   StringArrayDynamicDimension5 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,|
//|                                 íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè,              |
//|                                 íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà, 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                |
//|   string StringArrayDynamicDimension5 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                |
//|                                        int SizeDimension_4, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, string Value, string Array[]);                                     |
//|20.Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".-------------------------------------------------------------------------------------------------------------------------+
//|   StringArrayDynamicDimension6 (ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü, ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå,                                      |
//|                                 ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè, óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè,               |
//|                                 óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè, óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè,|
//|                                 óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè,             |
//|                                 íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè, íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè, ÷èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà,            |
//|                                 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ);                                                                                          |
//|   string StringArrayDynamicDimension6 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3,                |
//|                                        int SizeDimension_4, int SizeDimension_5, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Cell_4, int Cell_5, string Value, string Array[]);    |
//+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
#property copyright "Copyright © 2006 Zhunko"
#property link      "vadim@zhunko.ru"
#property library
//ææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñ ëîãè÷åñêèìè äàííûìè.æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ
//1===Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".===========================================================================================================================
int BoolArrayDynamicDimension2 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                bool  Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                bool& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b;      // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.-------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1);
  Cell = SizeDim_1 * Cell_0 + Cell_1;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     Print ("Array[", a,"][", b, "] = ", Array[SizeDim_1 * a + b]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//2===Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".============================================================================================================================
int BoolArrayDynamicDimension3 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                bool  Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                bool& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c;   // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2);
  Cell = SizeDim_1 * SizeDim_2 * Cell_0 + SizeDim_2 * Cell_1 + Cell_2; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      Print ("Array[", a,"][", b, "][", c, "] = ", Array[SizeDim_1 * SizeDim_2 * a + SizeDim_2 * b + c]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//3===Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".=========================================================================================================================
int BoolArrayDynamicDimension4 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                int   SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                int   Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                bool& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                bool& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;       // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * Cell_0 + SizeDim_2 * SizeDim_3 * Cell_1 + SizeDim_3 * Cell_2 + Cell_3; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       Print ("Array[", a,"][", b, "][", c, "][", d, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * a + SizeDim_2 * SizeDim_3 * b + SizeDim_3 * c + d]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//4===Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".============================================================================================================================
int BoolArrayDynamicDimension5 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                int   SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                int   SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                int   Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                int   Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                bool& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                bool& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.----------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_1 + SizeDim_3 * SizeDim_4 * Cell_2 + SizeDim_4 * Cell_3 + Cell_4; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * b + SizeDim_3 * SizeDim_4 * c + SizeDim_4 * d + e]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//5===Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ ëîãè÷åñêèìè äàííûìè".===========================================================================================================================
int BoolArrayDynamicDimension6 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                int   SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                int   SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                int   SizeDimension_5, // Óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè.
                                int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                int   Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                int   Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                int   Cell_5,          // Íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè.
                                bool& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                bool& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e, f; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;             // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_5;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_5 < 0) // Êîíòðîëü íà íîëü ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_5 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return (-1);
     }
    if (Cell_5 > (SizeDimension_5 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"BoolArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  if (SizeDimension_5 == 0) SizeDim_5 = 1;
  else SizeDim_5 = SizeDimension_5;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_1 + SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_2 + SizeDim_4 * SizeDim_5 * Cell_3 + SizeDim_5 * Cell_4 + Cell_5; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        for (f = 0; f < SizeDim_5; f++)
         Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "][", f, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * b + SizeDim_3 * SizeDim_4 * SizeDim_5 * c + SizeDim_4 * SizeDim_5 * d + SizeDim_5 * e + f]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//ææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñ äàííûìè äâîéíîé òî÷íîñòè.æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ
//6===Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".=======================================================================================================================
int doubleArrayDynamicDimension2 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                  bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                  bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                  int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                  int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                  int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                  int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                  double& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                  double& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b;      // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1);
  Cell = SizeDim_1 * Cell_0 + Cell_1;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     Print ("Array[", a,"][", b, "] = ", Array[SizeDim_1 * a + b]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//7===Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".=======================================================================================================================
int doubleArrayDynamicDimension3 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                  bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                  bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                  int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                  int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                  int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                  int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                  int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                  int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                  double& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                  double& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c;   // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2);
  Cell = SizeDim_1 * SizeDim_2 * Cell_0 + SizeDim_2 * Cell_1 + Cell_2; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      Print ("Array[", a,"][", b, "][", c, "] = ", Array[SizeDim_1 * SizeDim_2 * a + SizeDim_2 * b + c]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//8===Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".====================================================================================================================
int doubleArrayDynamicDimension4 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                  bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                  bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                  int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                  int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                  int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                  int     SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                  int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                  int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                  int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                  int     Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                  double& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                  double& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;       // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * Cell_0 + SizeDim_2 * SizeDim_3 * Cell_1 + SizeDim_3 * Cell_2 + Cell_3; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       Print ("Array[", a,"][", b, "][", c, "][", d, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * a + SizeDim_2 * SizeDim_3 * b + SizeDim_3 * c + d]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//9===Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".=======================================================================================================================
int doubleArrayDynamicDimension5 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                  bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                  bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                  int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                  int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                  int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                  int     SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                  int     SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                  int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                  int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                  int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                  int     Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                  int     Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                  double& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                  double& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_1 + SizeDim_3 * SizeDim_4 * Cell_2 + SizeDim_4 * Cell_3 + Cell_4; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * b + SizeDim_3 * SizeDim_4 * c + SizeDim_4 * d + e]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//10==Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ äàííûìè äâîéíîé òî÷íîñòè".======================================================================================================================
int doubleArrayDynamicDimension6 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                  bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                  bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                  int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                  int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                  int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                  int     SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                  int     SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                  int     SizeDimension_5, // Óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè.
                                  int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                  int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                  int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                  int     Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                  int     Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                  int     Cell_5,          // Íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè.
                                  double& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                  double& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e, f; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;             // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_5;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_5 < 0) // Êîíòðîëü íà íîëü ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_5 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return (-1);
     }
    if (Cell_5 > (SizeDimension_5 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"doubleArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  if (SizeDimension_5 == 0) SizeDim_5 = 1;
  else SizeDim_5 = SizeDimension_5;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_1 + SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_2 + SizeDim_4 * SizeDim_5 * Cell_3 + SizeDim_5 * Cell_4 + Cell_5; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        for (f = 0; f < SizeDim_5; f++)
         Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "][", f, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * b + SizeDim_3 * SizeDim_4 * SizeDim_5 * c + SizeDim_4 * SizeDim_5 * d + SizeDim_5 * e + f]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//ææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñ öåëî÷èñëåííûìè äàííûìè.æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ
//11==Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".=========================================================================================================================
int IntArrayDynamicDimension2 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                               bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                               bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                               int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                               int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                               int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                               int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                               int&  Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                               int&  Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b;      // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1);
  Cell = SizeDim_1 * Cell_0 + Cell_1;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     Print ("Array[", a,"][", b, "] = ", Array[SizeDim_1 * a + b]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//12==Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".=========================================================================================================================
int IntArrayDynamicDimension3 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                               bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                               bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                               int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                               int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                               int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                               int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                               int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                               int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                               int&  Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                               int&  Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c;   // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2);
  Cell = SizeDim_1 * SizeDim_2 * Cell_0 + SizeDim_2 * Cell_1 + Cell_2; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      Print ("Array[", a,"][", b, "][", c, "] = ", Array[SizeDim_1 * SizeDim_2 * a + SizeDim_2 * b + c]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//13==Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".======================================================================================================================
int IntArrayDynamicDimension4 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                               bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                               bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                               int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                               int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                               int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                               int   SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                               int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                               int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                               int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                               int   Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                               int&  Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                               int&  Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;       // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * Cell_0 + SizeDim_2 * SizeDim_3 * Cell_1 + SizeDim_3 * Cell_2 + Cell_3; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       Print ("Array[", a,"][", b, "][", c, "][", d, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * a + SizeDim_2 * SizeDim_3 * b + SizeDim_3 * c + d]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//14==Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".=========================================================================================================================
int IntArrayDynamicDimension5 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                               bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                               bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                               int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                               int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                               int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                               int   SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                               int   SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                               int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                               int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                               int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                               int   Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                               int   Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                               int&  Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                               int&  Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_1 + SizeDim_3 * SizeDim_4 * Cell_2 + SizeDim_4 * Cell_3 + Cell_4; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * b + SizeDim_3 * SizeDim_4 * c + SizeDim_4 * d + e]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//15==Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñ öåëî÷èñëåííûìè äàííûìè".========================================================================================================================
int IntArrayDynamicDimension6 (bool  Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                               bool  CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                               bool  PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                               int   SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                               int   SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                               int   SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                               int   SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                               int   SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                               int   SizeDimension_5, // Óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè.
                               int   Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                               int   Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                               int   Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                               int   Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                               int   Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                               int   Cell_5,          // Íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè.
                               int&  Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                               int&  Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e, f; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;             // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_5;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (SizeDimension_5 < 0) // Êîíòðîëü íà íîëü ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return (-1);
     }
    if (Cell_5 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      return (-1);
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return (-1);
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return (-1);
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return (-1);
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return (-1);
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return (-1);
     }
    if (Cell_5 > (SizeDimension_5 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"IntArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5);
      return (-1);
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  if (SizeDimension_5 == 0) SizeDim_5 = 1;
  else SizeDim_5 = SizeDimension_5;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_1 + SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_2 + SizeDim_4 * SizeDim_5 * Cell_3 + SizeDim_5 * Cell_4 + Cell_5; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        for (f = 0; f < SizeDim_5; f++)
         Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "][", f, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * b + SizeDim_3 * SizeDim_4 * SizeDim_5 * c + SizeDim_4 * SizeDim_5 * d + SizeDim_5 * e + f]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//ææææ Ôóíêöèè äèíàìè÷åñêèõ ìàññèâîâ ñî ñòðîêîâûìè äàííûìè.ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ
//16==Ôóíêöèÿ "Äâóõìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".============================================================================================================================
string StringArrayDynamicDimension2 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                     bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                     bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                     int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                     int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                     int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                     int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                     string& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                     string& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b;      // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension2()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension2()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return ("-1");
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension2()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return ("-1");
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1);
  Cell = SizeDim_1 * Cell_0 + Cell_1;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     Print ("Array[", a,"][", b, "] = ", Array[SizeDim_1 * a + b]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//17==Ôóíêöèÿ "Òð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".=============================================================================================================================
string StringArrayDynamicDimension3 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü
                                     bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå
                                     bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè
                                     int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè
                                     int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè
                                     int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè
                                     int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè
                                     int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè
                                     int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè
                                     string& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà
                                     string& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ
 {
  int a, b, c;   // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;      // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2; // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return ("-1");
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return ("-1");
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension3()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return ("-1");
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2);
  Cell = SizeDim_1 * SizeDim_2 * Cell_0 + SizeDim_2 * Cell_1 + Cell_2; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      Print ("Array[", a,"][", b, "][", c, "] = ", Array[SizeDim_1 * SizeDim_2 * a + SizeDim_2 * b + c]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//18==Ôóíêöèÿ "×åòûð¸õìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".=========================================================================================================================
string StringArrayDynamicDimension4 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                     bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                     bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                     int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                     int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                     int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                     int     SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                     int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                     int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                     int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                     int     Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                     string& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                     string& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;       // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;  // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return ("-1");
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return ("-1");
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return ("-1");
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension4()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return ("-1");
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * Cell_0 + SizeDim_2 * SizeDim_3 * Cell_1 + SizeDim_3 * Cell_2 + Cell_3; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       Print ("Array[", a,"][", b, "][", c, "][", d, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * a + SizeDim_2 * SizeDim_3 * b + SizeDim_3 * c + d]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//19==Ôóíêöèÿ "Ïÿòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".============================================================================================================================
string StringArrayDynamicDimension5 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                     bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                     bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                     int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                     int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                     int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                     int     SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                     int     SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                     int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                     int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                     int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                     int     Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                     int     Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                     string& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                     string& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;          // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;     // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return ("-1");
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return ("-1");
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return ("-1");
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return ("-1");
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension5()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return ("-1");
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * Cell_1 + SizeDim_3 * SizeDim_4 * Cell_2 + SizeDim_4 * Cell_3 + Cell_4; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * b + SizeDim_3 * SizeDim_4 * c + SizeDim_4 * d + e]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//20==Ôóíêöèÿ "Øåñòèìåðíûé äèíàìè÷åñêèé ìàññèâ ñî ñòðîêîâûìè äàííûìè".===========================================================================================================================
string StringArrayDynamicDimension6 (bool    Write_Read,      // Ïåðåêëþ÷àòåëü true/false - ïèñàòü/÷èòàòü.
                                     bool    CheckingERROR,   // Ïåðåêëþ÷àòåëü true/false - êîíòðîëèðîâàòü/íå êîíòðîëèðîâàòü âõîäíûå äàííûå.
                                     bool    PRINT,           // Ïåðåêëþ÷àòåëü true/false - ïå÷àòàòü/íå ïå÷àòàòü ñîäåðæèìîå ìàññèâà ïîñëå êàæäîãî îáðàùåíèÿ ê ôóíêöèè.
                                     int     SizeDimension_0, // Óñòàíîâêà ðàçìåðà íóëåâîé ðàçìåðíîñòè.
                                     int     SizeDimension_1, // Óñòàíîâêà ðàçìåðà ïåðâîé ðàçìåðíîñòè.
                                     int     SizeDimension_2, // Óñòàíîâêà ðàçìåðà âòîðîé ðàçìåðíîñòè.
                                     int     SizeDimension_3, // Óñòàíîâêà ðàçìåðà òðåòüåé ðàçìåðíîñòè.
                                     int     SizeDimension_4, // Óñòàíîâêà ðàçìåðà ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                     int     SizeDimension_5, // Óñòàíîâêà ðàçìåðà ïÿòîé ðàçìåðíîñòè.
                                     int     Cell_0,          // Íîìåð ÿ÷åéêè â íóëåâîé ðàçìåðíîñòè.
                                     int     Cell_1,          // Íîìåð ÿ÷åéêè â ïåðâîé ðàçìåðíîñòè.
                                     int     Cell_2,          // Íîìåð ÿ÷åéêè â âòîðîé ðàçìåðíîñòè.
                                     int     Cell_3,          // Íîìåð ÿ÷åéêè â òðåòüåé ðàçìåðíîñòè.
                                     int     Cell_4,          // Íîìåð ÿ÷åéêè â ÷åòâ¸ðòîé ðàçìåðíîñòè.
                                     int     Cell_5,          // Íîìåð ÿ÷åéêè â ïÿòîé ðàçìåðíîñòè.
                                     string& Value,           // ×èñëîâîå çíà÷åíèå äëÿ ââîäà/âûâîäà.
                                     string& Array[])         // 1-î ìåðíûé ìàññèâ äëÿ ïðåîáðàçîâàíèÿ â ìíîãîìåðíûé è çàïîëíåíèÿ.
 {
  int a, b, c, d, e, f; // Ïåðåìåíûå äëÿ öèêëîâ.
  int Cell;             // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  int SizeDim_1;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_2;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_3;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_4;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  int SizeDim_5;        // Ìîäèôèöèðóåìàÿ ðàçìåðíîñòü.
  //----Êîíòðîëü ââîäèìûõ çíà÷åíèé.--------------------------------------------------------------------------------------------------------------------------------------------------------------
  if (CheckingERROR == true)
   {
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (SizeDimension_0 < 0) // Êîíòðîëü íà íîëü íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_0 = ", SizeDimension_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_1 < 0) // Êîíòðîëü íà íîëü ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_1 = ", SizeDimension_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_2 < 0) // Êîíòðîëü íà íîëü âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_2 = ", SizeDimension_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_3 < 0) // Êîíòðîëü íà íîëü òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_3 = ", SizeDimension_3, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_4 < 0) // Êîíòðîëü íà íîëü ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_4 = ", SizeDimension_4, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (SizeDimension_5 < 0) // Êîíòðîëü íà íîëü ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÐàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      Print ("Ðàçìåðíîñòü SizeDimension_5 = ", SizeDimension_5, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü íà îòðèöàòåëüíûå çíà÷åíèÿ ðàçìåðíîñòåé.
    if (Cell_0 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè íóëåâîé ðàçìåðíîñòè Cell_0 = ", Cell_0, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_1 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_1 = ", Cell_1, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_2 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_2 = ", Cell_2, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_3 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_3 = ", Cell_3, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_4 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_4 = ", Cell_4, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    if (Cell_5 < 0) // Êîíòðîëü íà íîëü íîìåðà ÿ÷åéêè ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      Print ("Íîìåð ÿ÷åéêè ïåðâîé ðàçìåðíîñòè Cell_5 = ", Cell_5, "ìåíüøå íóëÿ.");
      return ("-1");
     }
    // Êîíòðîëü ââîäèìûõ çíà÷åíèé íîìåðîâ ÿ÷ååê.
    if (Cell_0 > (SizeDimension_0 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ íóëåâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_0 = ", Cell_0, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_0 = ", SizeDimension_0);
      return ("-1");
     }
    if (Cell_1 > (SizeDimension_1 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïåðâîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_1 = ", Cell_1, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_1 = ", SizeDimension_1);
      return ("-1");
     }
    if (Cell_2 > (SizeDimension_2 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ âòîðîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_2 = ", Cell_2, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_2 = ", SizeDimension_2);
      return ("-1");
     }
    if (Cell_3 > (SizeDimension_3 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ òðåòüåé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_3 = ", Cell_3, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_3 = ", SizeDimension_3);
      return ("-1");
     }
    if (Cell_4 > (SizeDimension_4 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ÷åòâ¸ðòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_4 = ", Cell_4, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_4 = ", SizeDimension_4);
      return ("-1");
     }
    if (Cell_5 > (SizeDimension_5 - 1)) // Êîíòðîëü ââîäèìûõ çíà÷åíèé äëÿ ïÿòîé ðàçìåðíîñòè.
     {
      Comment ("Ôóíêöèÿ \"StringArrayDynamicDimension6()\".\nÍîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5, ".");
      Print ("Íîìåð ââîäèìîé ÿ÷åéêè Cell_5 = ", Cell_5, ". Ýòî áîëüøå îáúÿâëåííîé ðàçìåðíîñòè SizeDimension_5 = ", SizeDimension_5);
      return ("-1");
     }
   }
  //----Êîíòðîëü ââîäèìûõ ðàçìåðíîñòåé íà íîëü è èçìåíåíèå ðàçìåðîâ ìàññèâà.---------------------------------------------------------------------------------------------------------------------
  if (SizeDimension_1 == 0) SizeDim_1 = 1;
  else SizeDim_1 = SizeDimension_1;
  if (SizeDimension_2 == 0) SizeDim_2 = 1;
  else SizeDim_2 = SizeDimension_2;
  if (SizeDimension_3 == 0) SizeDim_3 = 1;
  else SizeDim_3 = SizeDimension_3;
  if (SizeDimension_4 == 0) SizeDim_4 = 1;
  else SizeDim_4 = SizeDimension_4;
  if (SizeDimension_5 == 0) SizeDim_5 = 1;
  else SizeDim_5 = SizeDimension_5;
  ArrayResize (Array, SizeDimension_0 * SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5);
  Cell = SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_0 + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_1 + SizeDim_3 * SizeDim_4 * SizeDim_5 * Cell_2 + SizeDim_4 * SizeDim_5 * Cell_3 + SizeDim_5 * Cell_4 + Cell_5; // Íîìåð ÿ÷åéêè â îäíîìåðíîì ìàññèâå.
  //----×òåíèå/çàïèñü.---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Åñëè ðàçðåøåíà ðàñïå÷àòêà ñîäåðæèìîãî ìàññèâà.
  if (PRINT == true)
   for (a = 0; a < SizeDimension_0; a++)
    for (b = 0; b < SizeDim_1; b++)
     for (c = 0; c < SizeDim_2; c++)
      for (d = 0; d < SizeDim_3; d++)
       for (e = 0; e < SizeDim_4; e++)
        for (f = 0; f < SizeDim_5; f++)
         Print ("Array[", a,"][", b, "][", c, "][", d, "][", e, "][", f, "] = ", Array[SizeDim_1 * SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * a + SizeDim_2 * SizeDim_3 * SizeDim_4 * SizeDim_5 * b + SizeDim_3 * SizeDim_4 * SizeDim_5 * c + SizeDim_4 * SizeDim_5 * d + SizeDim_5 * e + f]);
  // Åñëè íóæíî ïðî÷èòàòü.
  if (Write_Read == false) return (Array[Cell]);
  // Åñëè íóæíî çàïèñàòü.
  if (Write_Read == true) Array[Cell] = Value;
  //  ñëó÷àå óñïåõà, âîçâðàùàåì ñîäåðæèìîå çàïðàøèâàåìîé ÿ÷åéêè.
  return (Array[Cell]);
 }
//===============================================================================================================================================================================================
//æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ
/*
//+-----------------------------------------------------------------------------------+
//|                                                       Checking_Dynamic_Arrays.mq4 |
//|                                                       Copyright © Zhunko          |
//|08.01.2008                                             zhunko@mail.ru              |
//+-----------------------------------------------------------------------------------+
//| Ñêðèïò äëÿ êîíòðîëÿ ðàáîòîñïîñîáíîñòè áèáëèîòåêè ôóíêöèé äèíèìè÷åñêèõ ìàññèâîâ.   |
//+-----------------------------------------------------------------------------------+
#property copyright "Copyright © Zhunko"
#property link      "zhunko@mail.ru"
#property show_inputs
#import "ZH_Dynamic_Arrays_Lib.ex4"
 int IntArrayDynamicDimension4 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int SizeDimension_3, int Cell_0, int Cell_1, int Cell_2, int Cell_3, int Value, int Array[]);
#import
extern bool Write_Read = false;
extern int  Cell_0     = 0;
extern int  Cell_1     = 0;
extern int  Cell_2     = 0;
extern int  Cell_3     = 0;
extern int  SizeDim_0  = 2;
extern int  SizeDim_1  = 4;
extern int  SizeDim_2  = 6;
extern int  SizeDim_3  = 8;
//----
int a, b, c, d, n; // Ïåðåìåíûå äëÿ öèêëîâ.
int Array[];
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
 {
  int Value;
  if (Write_Read == false)
   {
    ArrayResize (Array, SizeDim_0 * SizeDim_1 * SizeDim_2 * SizeDim_3);
    for (a = 0; a < SizeDim_0 * SizeDim_1 * SizeDim_2 * SizeDim_3; a++) Array[a] = a;
    // Êîíòðîëëèðóåì çàïèñü.
    for (a = 0, n = 0; a < SizeDim_0; a++)
     for (b = 0; b < SizeDim_1; b++)
      for (c = 0; c < SizeDim_2; c++)
       for (d = 0; d < SizeDim_3; d++, n++) Alert ("Array[", n, "] = ", IntArrayDynamicDimension4 (Write_Read, true, true, SizeDim_0, SizeDim_1, SizeDim_2, SizeDim_3, a, b, c, d, Value, Array));
    Comment (IntArrayDynamicDimension4 (Write_Read, true, true, SizeDim_0, SizeDim_1, SizeDim_2, SizeDim_3, Cell_0, Cell_1, Cell_2, Cell_3, Value, Array));
   }
  else
   {
    for (a = 0, n = 0; a < SizeDim_0; a++)
     for (b = 0; b < SizeDim_1; b++)
      for (c = 0; c < SizeDim_2; c++)
       for (d = 0; d < SizeDim_3; d++, n++) IntArrayDynamicDimension4 (Write_Read, true, true, SizeDim_0, SizeDim_1, SizeDim_2, SizeDim_3, a, b, c, d, n, Array);
    // Êîíòðîëëèðóåì çàïèñü.
    for (a = 0; a < SizeDim_0 * SizeDim_1 * SizeDim_2 * SizeDim_3; a++) Alert ("Array[", a, "] = ", Array[a]);
   }
  //----
  return(0);
 }
//+------------------------------------------------------------------+
//+-----------------------------------------------------------------------------------+
//|                                                       Checking_Dynamic_Arrays.mq4 |
//|                                                       Copyright © Zhunko          |
//|08.01.2008                                             zhunko@mail.ru              |
//+-----------------------------------------------------------------------------------+
//| Ñêðèïò äëÿ êîíòðîëÿ ðàáîòîñïîñîáíîñòè áèáëèîòåêè ôóíêöèé äèíèìè÷åñêèõ ìàññèâîâ.   |
//+-----------------------------------------------------------------------------------+
#property copyright "Copyright © Zhunko"
#property link      "zhunko@mail.ru"
#property show_inputs
#import "ZH_Dynamic_Arrays_Lib.ex4"
 double DoubleArrayDynamicDimension3 (bool Write_Read, bool CheckingERROR, bool PRINT, int SizeDimension_0, int SizeDimension_1, int SizeDimension_2, int Cell_0, int Cell_1, int Cell_2, double Value, double Array[]);
#import
extern bool Write_Read = false;
extern int  Cell_0     = 0;
extern int  Cell_1     = 0;
extern int  Cell_2     = 0;
extern int  Cell_3     = 0;
extern int  SizeDim_0  = 10000;
extern int  SizeDim_1  = 100;
extern int  SizeDim_2  = 9;
extern int  SizeDim_3  = 1;
//----
int      a, b, c, d, n; // Ïåðåìåíûå äëÿ öèêëîâ.
string   str1, str2;
double   Array[];
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
 {
  datetime time;
  double   Value;
  //----
  if (Write_Read == false)
   {
    ArrayResize (Array, SizeDim_0 * SizeDim_1 * SizeDim_2);
    time = TimeLocal();
    for (a = 0; a < SizeDim_0 * SizeDim_1 * SizeDim_2 * SizeDim_3; a++) Array[a] = a;
    str1 = TimeToStr (TimeLocal() - time, TIME_MINUTES|TIME_SECONDS);
    Comment ("Âðåìÿ ðàáîòû îäíîìåðíîãî ìàññèâà = ", str1);
    // Êîíòðîëëèðóåì çàïèñü.
    time = TimeLocal();
    for (a = 0, n = 0; a < SizeDim_0; a++)
     for (b = 0; b < SizeDim_1; b++)
      for (c = 0; c < SizeDim_2; c++)
//       for (d = 0; d < SizeDim_3; d++, n++)
        {
         Value = DoubleArrayDynamicDimension3 (Write_Read, false, false, SizeDim_0, SizeDim_1, SizeDim_2, a, b, c, Value, Array);
//         Alert ("Array[", n, "] = ", IntArrayDynamicDimension3 (Write_Read, false, false, SizeDim_0, SizeDim_1, SizeDim_2, a, b, c, Value, Array));
        }
    str2 = TimeToStr (TimeLocal() - time, TIME_MINUTES|TIME_SECONDS);
    Comment ("Âðåìÿ ðàáîòû îäíîìåðíîãî ìàññèâà = ", str1, "\nÂðåìÿ ðàáîòû äèíàìè÷åñêîãî ìàññèâà = ", str2);
//    Comment (DoubleArrayDynamicDimension3 (Write_Read, false, false, SizeDim_0, SizeDim_1, SizeDim_2, Cell_0, Cell_1, Cell_2, Value, Array));
   }
  else
   {
    time = TimeLocal();
    for (a = 0, n = 0; a < SizeDim_0; a++)
     for (b = 0; b < SizeDim_1; b++)
      for (c = 0; c < SizeDim_2; c++, n++)
//       for (d = 0; d < SizeDim_3; d++)
         {
          DoubleArrayDynamicDimension3 (Write_Read, false, false, SizeDim_0, SizeDim_1, SizeDim_2, a, b, c, n, Array);
         }
    str1 = TimeToStr (TimeLocal() - time, TIME_MINUTES|TIME_SECONDS);
    Comment ("Âðåìÿ ðàáîòû äèíàìè÷åñêîãî ìàññèâà = ", str1);
    // Êîíòðîëëèðóåì çàïèñü.
    time = TimeLocal();
    for (a = 0; a < SizeDim_0 * SizeDim_1 * SizeDim_2; a++)
     {
      Value = Array[a];
//      Alert ("Array[", a, "] = ", Array[a]);
     }
    str2 = TimeToStr (TimeLocal() - time, TIME_MINUTES|TIME_SECONDS);
    Comment ("Âðåìÿ ðàáîòû äèíàìè÷åñêîãî ìàññèâà = ", str1, "\nÂðåìÿ ðàáîòû îäíîìåðíîãî ìàññèâà = ", str2);
   }
  //----
  return(0);
 }
//+------------------------------------------------------------------+
ÍÀÁÎÐ ÔÓÍÊÖÈÉ ÄËß ÝÌÓËßÖÈÈ ÄÈÍÀÌÈ×ÅÑÊÈÕ ÌÀÑÑÈÂÎÂ.
Ôóíêöèè îáðàùàþòñÿ ê îäíîìåðíîìó ìàññèâó, êàê ê ìíîãîìåðíîìó.
Åñòü îòêëþ÷àåìûå âîçìîæíîñòè êîíòðîëÿ âõîäÿùèõ äàííûõ è êîíòðîëÿ ñîäåðæèìîãî ìàññèâà ïðè êàæäîì îáðàùåíèè ê ôóíêöèè.
Ëó÷øå íå èñïîëüçîâàòü ýòè âîçìîæíîñòè â ðàáî÷åì ðåæèìå. Ñèëüíî óâåëè÷èâàþò âðåìÿ âû÷èñëåíèé.
Ìîæíî èñïîëüçûâàòü øåñòèìåðíûé ìàññèâ, êàê äâóõìåðíûé. Âðåìÿ âû÷èñëåíèé ïî÷òè íå ìåíÿåòñÿ. Òîëüêî áîëüøå ïàðàìåòðîâ âõîäíûõ.
 öåëîì ôóíêöèè ðàáîòàþò â ñåìü ðàç ìåäëåííåå, ÷åì îáû÷íûé îäíîìåðíûé ìàññèâ â ÌÒ4.
*/

Sample

Analysis

Market Information Used:



Indicator Curves created:


Indicators Used:



Custom Indicators Used:
ZH_Dynamic_Arrays_Lib

Order Management characteristics:

Other Features:

2009-2010 - Desynced Tech