Вывести наиболее часто встречающийся элемент массива

Задача:Вывести наиболее часто встречающийся элемент массива. Delphi(Console).Помогите хотя бы с алгоритмом. Весь вечер голову ломаю над задачей.
6 ответов

массив одномерный или двумерный?


Одномерный.


program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
a:array[1..100] of integer;
i,j,k,km,ch,n:integer;
begin
   km:=0;
   writeln('razmernost?');
   readln(n);
   randomize;
   for i:=1 to n do begin
   a[i]:=random(10);
   write(a[i]:2);
   end;
   writeln;
   for i:=1 to n do begin
   k:=0;
   for j:=1 to n do begin
   if a[j]=a[i] then k:=k+1;
   end;
   if k>km then begin
   km:=k;
   ch:=a[i];
   end;
   end;
   writeln('samoe vstrechaemoe '+inttostr(ch)+' vstrechaetsa '+inttostr(km)+' raz');
   readln;
end.


Большое спасибо. Моя ошибка была в том что условие K > Km я проверял до вложенного цикла по j. И сам вложенный цикл брал от i+1.


задача на делфи:Таблицы данных.помогите пожалуйста!написать программу!ввод смогла выполнить но не получается вывести результаты на таблицу!работу надо выполнить в Delphi, использовать элемент формы TStringGrid (панель Additional). Дана таблица целых чисел ai, bi. Заполнить третью и четвертую строки значениями НОД(ai, bi), НОК(ai, bi). ai 1 3 4 8 … bi 2 3 2 6 … НОД(ai, bi) 1 3 2 2 … НОК(ai, bi) 2 3 4 24 …


можете такую в паскале сделать?