Заполнить массив 0 и 1 при поддержки генератора случайных чисел. Найти

ОТДЕЛ Задание+;
Употребляет Матем ИЗ "...\Отделы\Числа\";

ПЕР
  массив: РЯД 100 ИЗ ЦЕЛ;
  сч, нулей, единиц: ЦЕЛ;

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

КОН Задание.