IsArray Function
рдпрджрд┐ рдПрд░реЗрдорд╛ рдбреЗрдЯрд╛ рдлрд╛рдБрдЯ рдЪрд▓ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
IsArray (Var)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдмреБрд▓рд┐рдПрди
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
Var:рдХреБрдиреИ рдЪрд▓ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдПрд░реЗрдорд╛ рдШреЛрд╖рдгрд╛ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рдпрджрд┐ рдПрд░реЗрдорд╛ рдЪрд▓ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рддреНрдпрдлрд░реНрдХрд╛рдЙрдБрдЫ рдЕрдиреНрдпрдерд╛ рдЭреБрдареЛрдлрд░реНрдХрд╛рдПрдХреЛ рд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleIsArray
Dim sDatf(10) As String
Print isarray(sdatf())
End Sub