Поиск элемента в массиве данных, помогите с решением Опции

[Ilius]

Мажорирующим элементом в массиве A[1..N] будем называть элемент, встречающийся в массиве более N/2 раз. Легко заметить, что в массиве может быть не более одного мажорирующего элемента. Например, массив 3, 3, 4, 2, 4, 4, 2, 4, 4 имеет мажорирующий элемент 4, тогда как в массиве 3, 3, 4, 2, 4, 4, 2, 4 мажорирующего элемента нет. Необходимо определить, есть ли в массиве мажорирующий элемент, и если есть, то какой.

[nikita182]

если я правильно все понял...

 

uses crt;

const
 q = 10;

type
 mass = array [1..q] of integer;


var
 i,j : integer;
 n   : integer;
 mas : mass;

begin
 clrscr;
 writeln ('забивай массив');
 for i := 1 to q do
  read(mas[i]);
 for i := 1 to q do begin
  n := 0;
  for j := 1 to q do begin
   if mas[i] = mas[j] then
    n := n + 1;
  end;
  if n > q/2 then begin
   writeln;
   writeln(mas[i],' нужный элемент. число вхождений - ',n);
   readkey;
   halt;
  end;
 end;
 writeln;
 writeln('­нет таких!');



 readkey;
end.

Сообщение отредактировано: nikita182 - 18.05.2007 0:58

[volvo]

Вот тут: АлгоЛист: Решение задачи 15 приведены алгоритмы и реализации нескольких методов решения данной задачи...

[Ilius]

Спасибо за помощь, но что значит readkey?

Сообщение отредактировано: Ilius - 18.05.2007 17:22

[мисс_граффити]

читаем нажатую клавишу...

[Ilius]

Понятно.