Question

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

Answer 1

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