Помощь - Поиск - Пользователи - Календарь
Полная версия: Поиск элемента в массиве данных
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.


volvo
Вот тут: АлгоЛист: Решение задачи 15 приведены алгоритмы и реализации нескольких методов решения данной задачи...
Ilius
Спасибо за помощь, но что значит readkey?
мисс_граффити
читаем нажатую клавишу...
Ilius
Понятно. smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.