RD #50 ; 1-Й МАССИВ
WR R5
RD #5
WR R7
CALL O
RD #55 ; 2-Й МАССИВ
WR R5
RD #7
WR R7
CALL O
RD #62 ; 3-Й МАССИВ
WR R5
RD #10
WR R7
CALL O
RD R3
DIV #3
OUT
HLT
O: ; R5 - СТАРТ R7 КОЛ-ВО ЭЛ.
RD #0 ; R6 - ОБНУЛЕНИЕ СЧЁТЧИКА
WR R6
RD @R5+ ; СЧЁТ ПО ЯЧЕЙКИ R5 И +1 К НЕЙ
WR R0 ; ЗАПИСЬ В РОН №1
DIV #2 ; ПРОВЕРКА НА НЕЧЁТНОСТЬ
MUL #2
SUB R0
JZ 28 ; К RD @R6+
RD @R3+ ; ДОБАВИМ В СЧЁТ ЧИСЕЛ 1
RD @R6+ ; СЧЁТЧИК +1
RD R6
SUB R7;
JZ 33 ; К RET
JMP 21 ; К RD @R5+
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.