Pascal. Случайные числа.

[kogemrka]

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

kogemrka, в целом - однозначно зачёт.
Просто хочу отметить. Если задача стоит так:

Т.е. 100 чисел случайном образом разместить в массиве.
Тогда можно использовать такой алгоритм: заполняется массив от 1 до 100, (for i:=1 to 100 do a[i] := i
а потом случайным образом перемешивается... код получается достаточно простым:

  for i:=1 to 100 do begin
    repeat 
       K := Random(100) + 1;
    until K<>i;
    tmp := a[k];
    a[k] := a[i];
    a[i] := tmp;
  end;

и всё.

Да, я тоже хотел написать об этом с самого начала, но потом мне пришло в голову, что здесь могут быть косяки с неравномерным разпределением.
Немного покопавшись в сети, нашёл подтверждение: http://mazanu.com/2008/11/blog-post_20.html

Хотя чуть далее по ссылки этот алгоритм немного модицифируется и всё становится так как надо.