Найти три максимальных элемента последовательности (Паскаль)

[ANTON255200]

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

[ZX Spectrum-128]

То есть в последовательности например
1 2 3 4 3 4 5 6 6 0
Ожидается ответ 6 5 4?

Последовательность чисел откуда берется?

[ANTON255200]

Сообщение от ZX Spectrum-128

Ожидается ответ 6 5 4?

Да, именно такой. Последовательность вводится с клавиатуры

[Stilet]

Предположу:

var a:array[0..3] of integer; first:boolean;
begin first:=true;
 repeat
  readln(a[0]);
  if first or (a[2]>a[3]) then a[3]:=a[2];
   if first or (a[1]>a[2]) then a[2]:=a[1];
    if first or (a[0]>a[1]) then a[1]:=a[0];
  first:=false;
 until a[0]=0;
 write(a[1]:5,a[2]:5,a[3]:5);
 readln;
end.

[ANTON255200]

Не работает. Выдает три одинаковых числа

[Kostia]

takeMax n = take n . reverse . sort . nub

Берет 3 максимальных элемента из списка

print $ takeMax 3 [4,5,1,6,8,8,4,4,5,7,10,6]

Выведет:
[10,8,7]

PS: nub - O(n^2). The nub function removes duplicate elements from a list.
Поэтому если скорость не главное, то сгодится и такое решение =)

Сортируйте массив в обратном порядке(например пузырьком). Выкиньте из него повторяющиеся элементы. Потом возьмите 3 первые элемента.

[Poma][a]

Сортируйте массив в обратном порядке(например пузырьком). Выкиньте из него повторяющиеся элементы. Потом возьмите 3 первые элемента.

1) Фи...
2) Хорошо, получили 1 1 2 2 3 3..

m1 := -MaxInt+2;
m2 := -MaxInt+1;
m3 := -MaxInt;

for i := 1 to n do begin
	if (a[i] = m1) or (a[i] = m2) or (a[i] = m3) then Continue;
    if a[i] > m1 then begin
           m3 := m2;
           m2 := m1;
           m1 := a[i]
   end
   else   if a[i] > m2 then begin
       m3 := m2; 
       m2 := a[i]
  end
   else
            if a[i] > m3 then
              m3 := a[i]
end;

Я бы делал так..

[Mad_Cat]

Выкиньте из него повторяющиеся элементы

зачем???
в задании ж не написано 3 различных
поэтому в последовательности

1 1 2 2 3 3..

как раз и будет 3 максимума

2 3 3

[Kostia]

зачем???

Задание звучало как:

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

В случае не выполнения условия([2,2,3,3,2]), можно вывести что-то типа: "Увы, но в последовательность только 2 различных максимальных элемента: 2, 3"

[ANTON255200]

Гарантируется, что в последовательности есть как минимум 3 различных числа