В городе N-ске проходит конкурс на звание "Мистер большой живот". Побеждает тот, у кого объем талии больше всего. Помогите определить объем талии золотого и серебряного призера, если известно количество участников и объем талии каждого из них (все размеры талий различны)
Формат ввода N- кол-во участников Больше 3, меньше 100 А[1] объем талии первого участника А[N] объем талии N-ого участника (90<=А[N<=1000]).
Формпт вывода: два числа K1, K2 - объем талии золотого и серебрянного призера
Пример ввода 89 60 78 45 65 99 78
Пример вывода 99 89

program gt;var n,i,j,l:integer;a:array[1..1000]of integer;beginreadln(n);for i:=1 to n doread(a[i]);for i:=1 to n-1 dofor j:=1 to n-1 doif(a[j]<a[j+1])then beginl:=a[j];a[j]:=a[j+1];a[j+1]:=l;end;writeln(a[1],' ',a[2]);end.Я просто отсортировал массив по убыванию методом пузырка