Question

Программа на паскале
В массив записаны случайные числа от 1 до 10 , количество элементов в массиве 10000. Определить какое число чаще всего повторяется

Answer 1

Для этого задания необязательно делать массив из 10000 элементов , но если надо то вот простейший вариант.

var
a:array[1..10000] of byte;
count:array[1..10] of integer;
i, max, index:integer;
begin
for i:=1 to 10000 do
    begin
    a[i]:=random(10) + 1;
    inc(count[ a[i] ]);    
    end;    
for i:=1 to 10 do
    if max < count[i] then        
        begin
        max:= count[i];
        index:= i;
        end;
writeln(index,' Повторяется ',max);
end.