В чем ошибка...

[Эдвин Галстук]

Смысл алгоритма в поиске кол-ва одинаковых элементов массива. ВРоде правильно но результат иначе. Вроде смотрит только первый элемент массива... Не пойму... Подскажите если не трудно

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

P.s. Паскаль учу в школе, базовый уровень. Так что сильно не ругайте. Может где точку с запятой забыл поставить...

[ikot]

Что Вы имеете ввиду под фразой "Смысл алгоритма в поиске кол-ва одинаковых элементов массива" ??? Видь фактически в массиве может быть быть несколько наборов одинаковых чисел. Тогда, что искать - какой элемент встречался чаще всего, или какой реже всего, или вообще нужно все совпадения вывести на экран? Уточните задачу...

[Greblin]

И во внешнем, и во внутреннем циклах for Вы используете одну и ту же переменную i в качестве счётчика. Удивляюсь, что компилятор это вообще пропустил

[Эдвин Галстук]

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

Я переписал т.к. потом пересмотрел программу и понял что написал полный бред.

Сообщение от ikot

Что Вы имеете ввиду под фразой "Смысл алгоритма в поиске кол-ва одинаковых элементов массива" ??? Видь фактически в массиве может быть быть несколько наборов одинаковых чисел. Тогда, что искать - какой элемент встречался чаще всего, или какой реже всего, или вообще нужно все совпадения вывести на экран? Уточните задачу...

Смысл: найти самое большое количество совпадающих элементов, и вывести их кол-во.

Сообщение от Greblin

И во внешнем, и во внутреннем циклах for Вы используете одну и ту же переменную i в качестве счётчика. Удивляюсь, что компилятор это вообще пропустил

Да,да,да ошибочка из-за не понимания.

Всем большое спасибо. Иначе бы не исправил. Тему можно закрывать.