объясните как решить задачу

[StoneGod]

Дан массив из 10 чисел, найти максимальное количество одинаковых элементов.
Делать на до както так но я где ошибся.

program fgdf;
var a:array [1..10] of integer;
j,k,i,p:integer;
begin
writeln('vvedi massiv');
for i:=1 to 10 do
readln(a[i]);
p:=0;
k:=1;
for i:=1 to 9 do
for j:=i+1 to 10 do
if a[i]=a[j]
then k:=k+1;
if p<k then p:=k;
writeln('p=',p);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[MyLastHit]

Условие непонятное. Наверное как-то так..

program fgdf;
var a,b:array [1..10] of integer;
j,i,max:integer;
begin
  writeln('vvedi massiv');
  for i:=1 to 10 do
  begin
    readln(a[i]);
    b[i]:=1;
  end;
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    if a[i]=a[j] then 
    inc(b[i]);
  end;
  max:=b[1];
  for i:=2 to 10 do
  if b[i]>max then 
  max:=b[i];
  writeln('Max=',max);
  readln;
end.

[StoneGod]

Спасибо!!Я маленько подредактировал теперь выглядит так

program fgdf;
var a,b:array [1..10] of integer;
j,i,max:integer;
begin
  writeln('vvedi massiv');
  for i:=1 to 10 do
  readln(a[i]);
  b[i]:=0;
  for i:=1 to 10 do
  for j:=1 to 10 do
  if a[i]=a[j] then
  inc(b[i]);
  max:=b[1];
  for i:=2 to 10 do
  if b[i]>max then
  max:=b[i];
  writeln('Max=',max);
  readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[MyLastHit]

b[i] нужно проинициализировать по всем i.

for i:=1 to 10 do
begin
readln(a[i]);
b[i]:=0;
end;

[StoneGod]

программа в обоих случаях работает одинаково. во всяком случае на маём паскале