Вгороде n-ске проходит конкурс на звание "мистер большой живот". побеждает тот, у кого объем талии больше всего. определить объем талии золотого и серебряного призера, если известно количество участников и объем талии каждого из них (все размеры талий различны) формат ввода n- кол-во участников больше 3, меньше 100 а[1] объем талии первого участника а[n] объем талии n-ого участника (90< =а[n< =1000]). формпт вывода: два числа k1, k2 - объем талии золотого и серебрянного призера пример ввода 89 60 78 45 65 99 78 пример вывода 99 89
ArLesya
2
01.06.2019 18:50
0
Другие вопросы по теме Информатика
Soffa6110
11.11.2020 01:22
Франц11
20.09.2019 19:30
1988katerinkam
20.09.2019 19:30
dk050805
06.07.2019 07:20
Vikanigmatulina
06.07.2019 07:20
alena1995rusnak
06.07.2019 07:20
coolmeen
13.04.2019 10:42
Vika140220081
13.04.2019 10:44
RokiFoki
13.04.2019 10:45
Популярные вопросы
- По рис. 115 найдите плошади треугольников abc,acd,abo и bco. ...
1 - Укажите название атомов входящих в состав указанных молекул например кислород...
3 - Найдите знаменатель бесконечно убывающей прогрессии, такой, чтобы сумма ее первых...
3 - Sncl2 +k2cr2o7+h2so4 = sn(so4)2+sncl4+cr2(so4)3+k2so4 +h2o определить степени...
3 - Вкупейном вагоне находилось 36 пассажиров, из них 24 женщины.найти вероятность,...
1 - Вычислите используя распределительное свойство умножения относительно сложения...
3 - Сочините сказку про замечательную прямую...
3 - Яне бот. у меня завтра контрольная. нормально ответьте. а то знаю....
1 - Вчем заклчается особая роль москвы в развитии художественной культуры? что представляла...
3 - Будинок має 9 поверхів.у скільки разів вище підійматися на 9 поверх, ніж на 3?...
3
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.
Я просто отсортировал массив по убыванию методом пузырка