Выведите случайную серию чисел из 0 и 1 такую, что сумма чисел в ней больше 10.

[сфинкс]

"откуда у них задачи по программированию?"
очевидный ответ: из предмета "информатика"

"решением простейших этюдов на разных ЯП...
Нет, не интересуются. Это неинтересно. Это скучно."

реальность: множество одинаковых программ
на дюжинах языков программирования
http://rosettacode.org/wiki/Combinations#C.23
и сотни подобных страниц похожих на мою тему
развивающуюся на разных форумах

"откуда у них задачи по программированию?"
очевидный ответ: из предмета "информатика"

[p51x]

Сообщение от сфинкс

очевидный ответ: из предмета "информатика"

Там нет таких задач, которые не разбирали. Там весь класс может делать одну задачу. И на сколько я знаю, васик давно не встречается.

Сообщение от сфинкс

реальность: множество одинаковых программ
на дюжинах языков программирования
http://rosettacode.org/wiki/Combinations#C.23
и сотни подобных страниц похожих на мою тему
развивающуюся на разных форумах

Реальность проще: есть тупые и ленивые студенты, у которых есть доступ в инет. Погуглите и найдете задачи с этого форума из раздела "помощь студентам" раскиданными по разным форумам, где есть программирования, с одинаковым первым постом.
Вы и ваша тема только продолжает превращать форум в помойку из одинаковых тем и заголовков (модераторы хоть начали править).

[newerow1989]

var i,n:integer;
begin
   Randomize;
   n:=0;
   Repeat
      i:=Random(2);
      n:=n+i;
      Write(i,' ');
   Until n>10;
   Writeln;
   Readln;
end.

[digitalis]

Формулировка задачи самой малость диковатая. Иными словами, "генерируйте цепочку из 0 и 1 до тех пор, пока единиц там не наберется 11шт." ? Поскольку на бесике и плескале уже натюкали ответы, сажусь для разнообразия писа'ть на ЯСК для "Минск-32"