Перевод кода из Бэсик в 1С

[Klerik13]

Доброго времени суток, Помогите преобразовать код из Бэсик в 1С

N = 5
dim arr(N)
sum = 0
for i=0 to N-1
    arr = int(rand() * 20)
    print arr + " ";
    num = arr
    while num > 0
        sum = sum + num % 10
        num = num \ 10
    endwhile
next i
print
print sum

[LexaK]

а в бейсике это что за оператор "\"

num = num \ 10

а вот эта конструкция, у меня приводит к бесконечному циклу

while num > 0
        sum = sum + num % 10
        num = num \ 10
    endwhile

код в 1С

Пока Нум > 0 Цикл
    Сум = Сум + Нум % 10;
    Нум = Нум / 10;
КонецЦикла;

кто вам такие задания раздает?
(наверно на оччччень большую сообразительность рассчитывают)

[antoneus]

Думаю, это целочисленное деление.

[АлександрВладимирович]

Код Выделить Развернуть

ГСЧ = Новый ГенераторСлучайныхЧисел;
ТекстСообщения = "";
sum = 0;

N = 5;

arr = Новый Массив; // зачем?

Для i = 0 По N-1 Цикл

arr = ГСЧ.СлучайноеЧисло(0, 20);
ТекстСообщения = ТекстСообщения + arr + " ";
num = arr;

Пока num > 0 Цикл

sum = sum + num % 10;
num = Цел(num / 10);

КонецЦикла;

КонецЦикла;

ТекстСообщения = ТекстСообщения + Символы.ПС;

ТекстСообщения = ТекстСообщения + sum;

Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = ТекстСообщения;
Сообщение.Сообщить();