Версия для печати темы

Автор: Ilius 18.05.2007 2:45

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

Автор: nikita182 18.05.2007 4:57

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

 

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.

Автор: volvo 18.05.2007 5:13

Вот тут: http://algolist.manual.ru/olimp/poi_sol.php#a15 приведены алгоритмы и реализации нескольких методов решения данной задачи...

Автор: Ilius 18.05.2007 20:31

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

Автор: мисс_граффити 19.05.2007 3:40

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

Автор: Ilius 20.05.2007 15:48

Понятно.