Перевод кода в 1С

[aroz]

Добрый вечер, помогите пожалуйста перевести код с Pascal на 1С, очень срочно, буду благодарен

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

const N = 10;
var
    a: array[1..N] of integer;
    i: byte;
    sum: integer;
begin
    randomize;
    for i:=1 to N do a[i]:=random(10)-5;
    for i:=1 to N do write(a[i]:4);
    writeln;
    sum := 0;
    for i:=1 to N do begin
        if (a[i]>0) and (odd(a[i])=false) then
            sum := sum + a[i];
    end;
    writeln(sum);
end.

Нужно найти Сумму четных положительных элементов массива

[LexaK]

причем здесь Паскаль совсем не понятно, достаточно такой постановки

Нужно найти Сумму четных положительных элементов массива (из 10 случайных чисел)
Цитировать

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


Сумма = 0;
ГСЧ = Новый ГенераторСлучайныхЧисел();
Для Индекс=1 По 10 Цикл
НовоеЧисло = ГСЧ.СлучайноеЧисло(0,10);
Сообщить(НовоеЧисло);
Сумма = Сумма + ?(НовоеЧисло>0 и НовоеЧисло%2=0,НовоеЧисло,0);//оставлено из Паскаля НовоеЧисло>0
КонецЦикла;
Сообщить("Сумма: "+Сумма);


[aroz]

Спасибо большое, очень выручили!

[Dethmontt]

LexaK, а где

-5;

из задачи? для отрицательных чисел

Добавлено: 08 мая 2020, 03:47

НовоеЧисло>0

зачем было тогда это писать?

[LexaK]

Dethmontt, да-да, виноват, давно с рандомными числами не работал - вылетело из головы как отрицательный диапазон задавать,
вот так будет правильнее/полнее по тексту постановки

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


Сумма = 0;
ГСЧ = Новый ГенераторСлучайныхЧисел();
Для Индекс=1 По 10 Цикл
    НовоеЧисло = ГСЧ.СлучайноеЧисло(0,20) - 10; //случайное число в интервале от -10 до 10
    Сообщить(НовоеЧисло);
    Сумма = Сумма + ?(НовоеЧисло>0 и НовоеЧисло%2=0,НовоеЧисло,0);//вот теперь как в примере!!!
КонецЦикла;
Сообщить("Сумма: "+Сумма);