Задача на двмумерный массив

[CaptainPike]

Здравствуйте! Помогите написать программу с использованием двумерных массивов. Вот задача.

Задан список выигрышных номеров двадцати тиражей спортлото “5 из 36”. Выдать список пяти наиболее часто встречавшихся в этих тиражах номеров.

Заранее спасибо.

[Stilet]

Ну показывай как вводишь эти номера )

[CaptainPike]

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

Ну показывай как вводишь эти номера )

Вот код:

const n=20;
      c=5;
type mas=array [1..1000,1..1000] of integer;
var a:mas;
i,j,q:integer;


procedure vvodmass(var a:mas; c,n:integer);
begin
For i:=1 to n do
               For j:=1 to c do
                             A[i, j]:=random(36);
end;

procedure vivodmass(var a1:mas; c,n:integer);
begin
For i:=1 to n do
              begin
              For j:=1 to c do
                            write(A[i,j]:5);
                            writeln;
              end;
end;

begin
randomize;
vvodmass(a,n,c);
vivodmass(a,n,c);
end.

А вот как из этого массива выудить 5 повторяющихся я ума не приложу

[Stilet]

Так понятьно.
Я бы обьявил массив так:

type mas=array [20,5] of integer;

Потом массив количеств и индексов:

var idx,cnt:array[1..36] of integer;

При вводе заполнить массив количеств:

procedure vvodmass(var a:mas; c,n:integer);
begin
For i:=1 to 36 do idx[i]:=i;
For i:=1 to n do
               For j:=1 to c do begin
                             A[i, j]:=random(36); inc(cnt[A[i, j]]); end;
end;

Далее сортировка по индексам:

var k:integer;
...
for i:=1 to 36 do for j:=1 to 36 do begin
 if cnt[idx[i]]>cnt[idx[j]] then begin
  k:=idx[i]; idx[i]:=idx[j]; idx[j]:=k;
 end;
end;

По идее массив индексов теперь перемешан по возрастанию количеств, и:

for i:=1 to 5 do write(cnt[idx[i]]:5);

Должно дать первые пять крутых.

[CaptainPike]

А можете, пожалуйста, в единый код слепить? Буду очень благодарен.

[Stilet]

Нет. В единый не могу )