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