Элементарная программа...

[LittleStudent]

Написать программу в pascal.
Создать массив и выписать тот элемент массива который встречается в массиве четное кол-во раз.
Знаю что это элементарно, но в языке ни бум бум.
Помогите пожалуйста!!!

________________
Закрыто по причине названия темы.
И то, что Вам задачу успели решить, до того, как её закрыл - это Вам чисто повезло!
Модератор.

[veniside]

вобще-то это не так уж и элементарно, особенно, если массив на миллион чисел, а нужно, чтобы работало быстро. я бы делал через дополнительный отсортированный список (словарь), в котором накапливал бы для каждого уникального значения из исходного массива количество его повторений. итого один проход по массиву, и один проход по словарю в конце.

ну или отсортировать исходный массив и подсчитывать длину цепочек из одинаковых значений. хз, что быстрей.

[LittleStudent]

Ой простите не уточнил.
В массиве всего 10 чисел.
И вот пример вида массива: 1 1 1 2 2 3 3 4 4
Условие a[i]<=a[i+1]

[veniside]

В массиве всего 10 чисел.
И вот пример вида массива: 1 1 1 2 2 3 3 4 4

так, кто-то до 10 считать не умеет )

Тогда ещё такой вопрос: массив отсортированный? Ладно, если не отсортированный, то просто надо отсортировать. Далее делаем нечто такого:

const
  N = 10;
var
  A: array[1..N] of Integer;
  i, myLastHit: Integer;
  c: boolean;
begin
  // тут заполняем и сортируем массив по возрастанию, если массив не отсортирован
  // ...
  myLastHit := A[1];
  c := false;
  for i := 2 to N do begin
    //
    if (myLastHit = A[i]) then 
      c := not c
    else begin
      //
      if (c) then
        writeLn(myLastHit, ' встречается чётное число раз.');
      //
      myLastHit := A[i];
      c := false;
    end;
  end;
end;