Мажорирующим элементом в массиве 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
Вот тут: АлгоЛист: Решение задачи 15 приведены алгоритмы и реализации нескольких методов решения данной задачи...
Ilius
18.05.2007 20:31
Спасибо за помощь, но что значит readkey?
мисс_граффити
19.05.2007 3:40
читаем нажатую клавишу...
Ilius
20.05.2007 15:48
Понятно.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.