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