Методы сортировки, need help =( Опции

[malishka]

Помогите, пожалуйста решить задачку :

Найти элементы каждой строки матрицы, которые повторяются наибольшее число раз в своей строке.

Спасибо.

[Lapp]

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

Вот решение без сортировки и без дополнительных массивов. Разбирайся.
Вопросы welcome

const
  m=8;
  n=10;

var
  a: array[1..m,1..n]of integer;
  i,j,k,l,x,y: integer;

begin
  for i:=1 to m do for j:=1 to n do a[i,j]:=Random(n*m div 4);
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:4);
    WriteLn
  end;
  for i:=1 to m do begin
    y:=0;
    for j:=1 to n do begin
      x:=0;
      for k:=1 to n do if a[i,j]=a[i,k] then Inc(x);
      if y<x then begin
        y:=x;
        l:=j
      end
    end;
    WriteLn(a[i,l])
  end;
  ReadLn
end.

Добавлено через 11 мин.
Скорее всего, имелось в виду следующее..
Отсортировать каждую строку (по возрастанию или убыванию, по желанию). Потом за один проход найти максимальное кооличество одинаковых чисел, идущих подряд.

Добавлено через 1 мин.
Видимо, это то же самое, что у тебя под номером 2. Извини, не сразу врубился..(