задачка, голова уже болит! буду благодарен за помощь!

[Vanta11a]

Моя реализация кода, вероятность считается от числа выпадений за указанное число бросков. Вероятности для 1000 бросков держатся в районе 0,2.

program loterry;

const
  number = 1000;// Число розыгрышей

var
  a1, ta1: array [1..80] of integer;
  a2: array [1..80,1..2] of real;
  i, j, k, tmpi: integer;
  tmp: real;

begin
  randomize();
  for k := 1 to number do
  begin
    for i := 1 to 20 do
    begin
      repeat
        j := random(80) + 1;
      until (ta1[j] <> 1);
      a1[j] := a1[j] + 1;
      ta1[j] := 1;
    end;
    for i := 1 to 80 do
      ta1[i] := 0;
  end;
  for i := 1 to 80 do
  begin
    a2[i][1] := a1[i] / number;
    a2[i][2] := i;
  end;
  for i := 1 to 80 - 1 do
    for j := i + 1 to 80 do
      if (a2[j][1] > a2[i][1]) then
      begin
        tmp := a2[i][1];        
        a2[i][1] := a2[j][1];
        a2[j][1] := tmp;
        tmp := a2[i][2];        
        a2[i][2] := a2[j][2];
        a2[j][2] := tmp;
      end;
  writeln('Наибольшая вероятность выпадения у следующих 20 чисел:');
  for i := 1 to 20 do
  begin
    write(FloatToStr(a2[i][2]) + '(' + FloatToStr(a2[i][1]) +'%) ');
  end;  
  readln();
end.

[Poma][a]

const
	SIZE = 80;
	CNT = 20;

type
	TR = record
		pos : Integer;
		value : Integer 
	end;
	
	TArr = array [1..CNT] of Integer;
	TM = array [1..SIZE] of TR;
	
procedure Generate (var a : TArr);
procedure Swap (var b, c : Integer);
var
	t : Integer;
begin
	t := b;
	b := c;
	c := t
end;

var
	t : array [1..80] of Integer;
	i : Integer;
	

begin
	for i := 1 to SIZE do
		t[i] := i;
		
	for i := 1 to SIZE do 
		Swap (t[i], t[Random(SIZE)+1]);
		
	Move (t, a, CNT)	
end;

procedure GetChance (const a : TArr; const win : TArr; var num : TM);
function WinNum (k : Integer) : Boolean;
var
	i : Integer;
begin
	WinNum := TRUE;
	for i := 1 to CNT do
		if a[i] = k then 
			Exit;
			
	WinNum := FALSE		
end;

var
	i : Integer;
	
begin
	for i := 1 to CNT do
		if WinNum (a[i]) then
			Inc (num[a[i]].value);
end;


procedure SortArr (var a : TM; const n : LongInt);

var
	l, i, m, r : LongInt;
	t : TR;

begin
	for i := 2 to n do begin
		if a[i].value < a[i-1].value then begin

			t := a[i];

			l := 1;
			r := i-1;

			while l <> r do begin
				m := l + (r - l) div 2;
				if t.value > a[m].value then
					l := m + 1
				else
					r := m;
			end;

			Move (a[r], a[r+1], (i - r) * SizeOf (a[1]));

			a[l] := t;
		end;
	end;
end;



var
	num : TM;
	win, attempt : TArr;
	i : Integer;

begin
	Randomize;
	for i := 1 to SIZE do begin
		num[i].pos := i;
		num[i].value := 0
	end;
		
	Generate(win);
			
	for i := 1 to 10 do begin
		Generate (attempt);
		GetChance (attempt, win, num)
	end;
	
	SortArr (num, SIZE);
	for i := SIZE downto 1 do
		WriteLn (num[i].pos : 4, ' : ', num[i].value*10 : 4,'%')
	
end.

Как-то так.. (не тестировал.. посмотрел, что компилируется и что-то выдает..)

[v.chertov]

ребят, может я что-то недопонял как препод объяснил, он как бы дал текст задачки, я по максимуму его распросил, и что понял писал выше.. не понимаю что не хватате, вы скажите я у него спрошу.

[v.chertov]

вроде как надо сравнить выпавшие случайные числа и вывести вероятность следующего числа. с наибольшей вероятностью! вроде так.

[Vanta11a]

Если генератор абсолютно случаен - вероятность любого следующего числа будет 1/80. Если же нет, то по набору данных можно выявить закономерности, т.е. те числа, которые падают чаще. У меня в коде примерно так и сделано, там высчитывается отношение выпал_раз/число_розыгрышей.

[Smitt&Wesson]

В посте #9, я уже написал формулу - 10*(20/80) = 2,5.
80 значимых чисел случайно распределены по 20 билетам. В десяти розыгрышах, случайно выбранная цифра выпадет, как минимум в двух билетах и в 50/50, в третьем билете.
Если брать вероятность выпадения этой-же цифры в ряду, она действительно равна 1/80-й, т.к. в ряду цифры не повторяються.

[Poma][a]

Эм.. т.к. я (возможно) вкурил условие задачи, то попробую чуть-чуть прояснить ситуацию..

Программа должна сгенерировать выйгрышный ряд из 20 элементов (от 1 до 80).
Далее Ваша программа генерирует 10 тиражей, в которых также 20 элементов (от 1 до 80) и сщитает кол-во "попаданий" (тоесть если число I есть в выйгрышном ряде и в K тиражах, то мы кол-во попаданий будет K)..
Далее выводим это самое кол-во попаданий.. вуаля
Именно так я написал код из #22

[Smitt&Wesson]

Ну, если только так. v.chertov, Poma][a правильно ли Вас понял?

[Mad_Cat]

Именно так я написал код из #22

а я в #20 !!!!

[Poma][a]

а я в #20 !!!!

Ба.. а я и не видел.. почта рассказала об "+1", а об коде молчок..