Найти в массиве значение чаще встречаемого элемента

@Dimon12131 · Регистрация: 16.11.2011

Author24 — интернет-сервис помощи студентам

Помогите с задачей надо найти в целочисленном массиве из 30 элементов значение чаще встречаемого элемента?? вот мой вариант недоделанной программы,скажите что не так и в чем проблема

Pascal

program z;
uses crt;
var
i,g,n,q:integer;
a:array [1..30] of integer;
b:array [1..30] of integer;
begin
for i:=1 to 30 do begin
a[i]:= random(5);
write(a[i]:3);
end;
writeln;
n:=1;
for i:=1 to 30 do begin
for g:=3 to 30 do begin
if a[i]=a[g]then
for q:=1 to g-1 do begin
if a[q]=a[g] then
b[i]:=n+2
else b[i]:=n+1;
end;
end;
write;
write(b[i]:3);
end;
end.

@~~mc.Duck~~ · 16.11.2011, 19:30

Dimon12131, можешь задачу поточнее сформулировать? Тогда помогу. Несовсем ясно, что за встречаемый элемент.

@Dimon12131 · 16.11.2011, 19:32 **[ТС]**

массив задается случайными числами,надо найти какое число встретиться чаще(больше) всего раз

@~~mc.Duck~~ · 16.11.2011, 20:33

Dimon12131, Вот я переработал твой код:

Pascal

program z;
 uses crt;
 
 const n=30;                      //количество чисел в массиве
 
 var
 i,j,max,chislo:integer;
 a:array [1..n] of integer;
 b:array [1..n] of integer;
 begin
 writeln('Исходные числа: ');
 for i:=1 to n do begin
 a[i]:= random(5);
 b[i]:= 1;
 write(a[i]:3);
 end;
 writeln;
 for i:=1 to n do begin
 for j:=1 to n do begin
 if i<>j then
 if(a[i]=a[j]) then b[i]:=b[i]+1;
 end;
 end;
  writeln;
  writeln('Сколько раз они встречаются: ');
  for i:=1 to n do write(b[i]:3);
  writeln;writeln;
  max:=b[1];
  chislo:=a[1];
  for i:=1 to n do if b[i]>max then begin max:=b[i];chislo:=a[i];end;
  for i:=1 to n do
  if b[i]=max then
  begin
  writeln('Больше всего раз встречается число "'+Inttostr(chislo)+'"  ('+Inttostr(max)+' раз/а)');
  end;
 end.

@Dimon12131 · 16.11.2011, 20:39 **[ТС]**

спасибо,а в чем мои ошибки были?

@~~mc.Duck~~ · 16.11.2011, 20:57

Dimon12131, ну во-первых цикл for почему то начинался с трех,
далее не было проверки вида

Pascal

1	if i=g then

, поэтому число считало себя само два раза,
ну и самая главная ошибка, это то, что у вас счетчик n не возрастал, чтобы он возрастал надо было сделать так:

Pascal

1	b[i]:=inc(n);

А не

Pascal

1	b[i]:=n+1;

n - это переменная в вашем случае. Например,

Pascal

1	b[i]=n+100 // b[i] будет равно 101

и
затем сразу же

Pascal

1	b[i+1]=n+5 // b[i] будет равно 6, а не 106

Ну и в коде то особой логики не было - программа работала не так, как вы её пытались заставить.

@Dimon12131 · 16.11.2011, 21:48 **[ТС]**

спасибо за информацию,а если таких чисел будет несколько,которые будут чаще всего встречаться тогда как?

@~~mc.Duck~~ · 17.11.2011, 16:15

Dimon12131, вообще то, я учел тот факт, что одинаковых чисел может быть несколько.
Проверьте, если хотите!
За это отвечает конструкция:

Pascal

 for i:=1 to n do
  if b[i]=max then
  begin
  writeln('Больше всего раз встречается число "'+Inttostr(chislo)+'"  ('+Inttostr(max)+' раз/а)');
  end;

@Dimon12131 · 17.11.2011, 16:25 **[ТС]**

проверьте,оно не учитывает это,я переработал вашу программу на язык более понятный мне

Pascal

program z;
 uses crt;
 const
 n=30;
 var
 i,g,max,chislo:integer;
 a:array [1..30] of integer;
 b:array [1..30] of integer;
 begin
 for i:=1 to n do begin
 a[i]:= random(31);
 b[i]:=1;
 write(a[i]:3);
 end;
 writeln;
 for i:=1 to n do begin
 for g:=1 to n do begin
 if i<>g then
 if a[i]=a[g]then
 b[i]:=b[i]+1;
 end;
 end;
 writeln;
 for i:=1 to n do write(b[i]:3);
 writeln;
 max:=b[1];
 chislo:=a[1];
 for i:=1 to n do
 if b[i]>max then begin
 max:=b[i];
 chislo:=a[i];
 end;
  for i:=1 to n do
  if b[i]=max then begin
  writeln('Больше всего встречается число',chislo);
  end;
  end.

@~~mc.Duck~~ · 17.11.2011, 17:34

Dimon12131, может в массиве просто не встречается одинаковое количество раз максимальное число?

Pascal

program z;
 uses crt;
 const
 n=30;
 var
 i,g,max,chislo:integer;
 a:array [1..30] of integer;
 b:array [1..30] of integer;
 begin
 for i:=1 to n do begin
 a[i]:= random(31);
 b[i]:=1;
 write(a[i]:3);
 end;
 writeln;
 for i:=1 to n do begin
 for g:=1 to n do begin
 if i<>g then
 if a[i]=a[g]then
 b[i]:=b[i]+1;
 end;
 end;
 writeln;
 for i:=1 to n do write(b[i]:3);
 writeln;
 max:=b[1];
 chislo:=a[1];
 for i:=1 to n do
 if b[i]>max then begin
 max:=b[i];
 chislo:=a[i];
 end;
 for i:=1 to n do
 begin
 if b[i]=max then begin
 writeln('Больше всего встречается число',chislo);
 end;
 end;
 end.

@Dimon12131 · 17.11.2011, 18:39 **[ТС]**

скорее всего да,спасибо за помощь

@~~mc.Duck~~ Заблокирован
	16.11.2011, 19:30	2
	Dimon12131, можешь задачу поточнее сформулировать? Тогда помогу. Несовсем ясно, что за встречаемый элемент. 0

@Dimon12131 1 / 1 / 1 Регистрация: 16.11.2011 Сообщений: 24
	16.11.2011, 19:32 [ТС]	3
	массив задается случайными числами,надо найти какое число встретиться чаще(больше) всего раз 0

@Dimon12131 1 / 1 / 1 Регистрация: 16.11.2011 Сообщений: 24
	16.11.2011, 20:39 [ТС]	5
	спасибо,а в чем мои ошибки были? 0

@Dimon12131 1 / 1 / 1 Регистрация: 16.11.2011 Сообщений: 24
	16.11.2011, 21:48 [ТС]	7
	спасибо за информацию,а если таких чисел будет несколько,которые будут чаще всего встречаться тогда как? 0

@Dimon12131 1 / 1 / 1 Регистрация: 16.11.2011 Сообщений: 24
	17.11.2011, 18:39 [ТС]	11
	скорее всего да,спасибо за помощь 0