Question

подскажите пожалуйста срочно

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыОбмен";

ПЕР
  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)
    КОН
  КОН

КОН Задание.