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

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

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

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

КОН Задание.