[PhoeniX]

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

Абсолютно не оптимально. Твой алгоритм будет крутиться покуда не сгенерит ряд, сумма элементов которого точно равна 1200. а это может занять много времени. Да и внутренние циклы можно оптимизировать.

Как уже говорил, тут надо делать адаптивние решение.
Пример моего варианта:

<skip>

Здесь тоже есть вероятность "зацикливания", однако она минимальна, т.к. вероятность того, что сумма 19ти случайных значений от 1 до 100 будет больше 1200 достаточно невысока. Если учесть, что встроеный генератор имеет нормальное распределение (а не равномерное, как полагают многие), то вероятность второго захода генерации я рассматриваю как величину бесконечно малую, а уж если такое случится, то третий заход практически невероятен.

Забыл, что 20й итем не может быть больше 100?

Код:

procedure TForm1.Button1Click(Sender: TObject);
label
  beg;
var
  A : Array [1..20] Of Integer;
  I : Integer;
  S : Integer;
  int:integer;
begin
int:=0;
beg:
  int:=int+1;
  S := 0;
  For I := 1 To 19 Do
    Begin
      A[i] := Random(100)+1;
      S := S + A[i];
    End;
  If (S < 1200 - 1)and(1200-s<=100)
    Then A[20] := 1200 - S
Else goto beg;
  ListBox1.Clear;
  For I := 1 To 20 Do
    Begin
      ListBox1.Items.Add(IntToStr(A[i]));
    End;
  showmessage(inttostr(int));
end;

Итог поразителен: от 5 до 70 интераций! Провёл 50 проверок.

[lmikle]

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

Забыл, что 20й итем не может быть больше 100?

Почему не может? Где ограничение? В исходной задачи на значение каждого элемента только одно ограничение: A[i] > 0. По максимальному значению ограничения нету.

[PhoeniX]

Ой... это я из другой темы приполз... сорри.
хотя, логично, что если генерировать числа от 1 до 100, то и последнее должно быть в этих приделах. а то у меня по твоему генератору последнее и 400+ выползало...