| 
| 
 | Вопрос # 5 322/ вопрос открыт / | 
 |  Доброго времени суток, уважаемые эксперты!Дана последовательность чисел. Известно что все числа в ней встречаются четное количество раз, кроме одного, которое встречается нечетное количество раз. Напишите программу, которая находит это число.
 например: исходная последовательность:1,2,3,4,2,3,1,4,2,1,4,3,4,12,3,2,1,5,5,7,7,12,7,7,9,8,12,9,8
 Искомое число :12
 
|  |   Вопрос задал: IVA (статус: Посетитель)Вопрос отправлен: 26 мая 2011, 12:00
 Состояние вопроса: открыт, ответов: 0.
 |  
 Мини-форум вопросаВсего сообщений: 2; последнее сообщение — 26 мая 2011, 15:38; участников в обсуждении: 2. 
|   | min@y™ (статус: Доктор наук), 26 мая 2011, 12:01 [#1]:А в чём вопрос-то? "Сделайте лабу за меня"? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  26 мая 2011, 12:04: Вопрос перемещён из тематического раздела Delphi » Алгоритмы, преобразования в раздел Лабораторный практикум » Pascal модератором min@y™ 
|   | nar (статус: Посетитель), 26 мая 2011, 15:38 [#2]:На паскале давно не пишу, а так тебе производительность тоже думаю не нужна так как это всего лишь лаба Берешь массив a[1..100,1..2]
 N – счетчик элементов массива «а»
 Напиши по алгоритму
 Берешь первое число заносишь в массив a[1,1]:=само число а в a[1,2]=количество раз(т.е в данный момент (1)
 Следующие числа , проверяешь по a[n,1] если есть то в a[n,2]:=a[n,2]+1 если нет то a[n+1,1]= число в a[n+1,2]=1; n:=n+1
 Перебрал все числа
 А дальше берешь массив и ищешь по a[n,2] не четное число, (можешь делением на, два) и проверять остаток ноль или нет, как только нашел, твое число будет в a[n,1]
 Способ корявый но работать  будет
 |  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |