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

Предыдущий
вопрос Следующий
вопрос

program MostFrequentNumber;

var
arr: array[1..10000] of integer;
Frequency: array[1..10] of integer;
i, maxFreq, mostFrequentNumber: integer;

begin
// инициализируем массив частот нулями
for i := 1 to 10 do
Frequency[i] := 0;

// заполняем массив случайными числами от 1 до 10
Randomize;
for i := 1 to 10000 do
arr[i] := Random(10) + 1;

// считаем частоту каждого числа
for i := 1 to 10000 do
Frequency[arr[i]] := Frequency[arr[i]] + 1;

// находим число с наибольшей частотой
maxFreq := 0;
for i := 1 to 10 do
begin
if Frequency[i] > maxFreq then
begin
maxFreq := Frequency[i];
mostFrequentNumber := i;
end;
end;

writeln('Число ', mostFrequentNumber, ' встречается чаще всего, ', maxFreq, ' раз.');
end.