Сгенерировать случайную серию из 15 чисел, в которой ровно 3 единицы, остальные нули.

[Julia_Sv]

Сгенерировать случайную серию из 15 чисел, в которой ровно 3 единицы, остальные нули.

[Serge_Bliznykov]

если я правильно понял задачу, то нужно взять массив на 15 элементов, занести в него три единицы, двенадцать нулей, перемешать случайным образом, вывести на экран.
всё.

[Julia_Sv]

Сообщение от Serge_Bliznykov

если я правильно понял задачу, то нужно взять массив на 15 элементов, занести в него три единицы, двенадцать нулей, перемешать случайным образом, вывести на экран.
всё.

А без массива можно сделать?

[Serge_Bliznykov]

можно и без массива.
только это будет не наглядно и не универсально.

ну, например, так:

const
  NeedOne=3;
  n = 15;
var Count_one, i : integer;
begin
  Randomize;
  Count_one := 0;
  for i:=1 to n do
    if Count_one=NeedOne then Write(0,' ')
    else
       if i>(n-NeedOne+Count_one) then Write(1,' ')
       else
         if Random(5)=1 then begin Write(1,' '); Inc(Count_one) end
         else Write(0,' ');

  WriteLn;
end.