ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР
m: РЯД 12 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
(* 1 *)
ОТ сч := 0 ДО РАЗМЕР(m) - 1 ВЫП
m[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 45)) + 9
КОН;
(* 2 *)
ОТ сч := 0 ДО РАЗМЕР(m) - 1 ВЫП
ЕСЛИ m[сч] ОСТАТОК 3 = 0 ТО
УВЕЛИЧИТЬ(m[сч], 5)
КОН
КОН;
(* 3 *)
ОТ сч := 0 ДО РАЗМЕР(m) - 1 ВЫП
ЕСЛИ m[сч] ОСТАТОК 3 = 0 И ЧЕТ(сч + 1) ТО
УВЕЛИЧИТЬ(m[сч], 5)
КОН
КОН
КОН Задание.