исследование функции Random Опции

[Гость]

Помогите пожалуйста с программами. Нужно исследовать функцию random от какого-либо числа(например 100).
Одна программа должна с помощью функции random выводить на экран числа, а другая-фиксировать за сколько запусков первой программы выводилось число 100 и показать эту зависимость в виде столбчатой диаграммы.

[volvo]

Полностью делать не буду. Раз сам не хочешь - никому кроме как тебе это не нужно.

Идея такая:

randomize;
count := 0; found := false;
repeat
  inc(count);
  for i := 1 to 15 do begin
    a[i] := random(41);
    if a[i] = 10 then found := true; { нужное число присутствует }
    write(a[i]:4);
  end;
  writeln;
until found;
{ Count показывает, с какой попытки заданное число появилось в массиве }

{ если число присутствует в массиве, то построить гистограмму }
if found then show_gist(a)
{
  пользуйся поиском, я выкладывал процедуру построения гистограмм
}

[Гость]

огромное спасибо!!!!!!!!!!!!!!!! теперь дело совсем за малым.