Чернильные Топи Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 0.5 секунд Ограничение по памяти: 256 мегабайт Чернильные Топи — довольно спокойный уголок Нивена. Здесь можно гулять, любоваться видами природы, шумом озера, а также рыбачить. Неудивительно, что именно здесь проходил XX чемпионат по ловле рыбы среди Моки. Участники должны были любым поймать как можно больше рыбы за отведенное время. Известно, что i-ый участник выловил ai мокиграммов рыбы. И вот, теперь настала пора награждать победителей. Организаторы хотят определить победителей следующим образом: • В соревновании должно быть ровно два победителя. Очевидно, что победители это такие Моки, что первый Моки выловил рыбы не меньше чем второй, а второй выловил не меньше чем все остальные (кроме него и первого • Из всех подходящих под предыдущие условия пар победителей нужно выбрать такую, что сумма их номеров минимальна. организаторам определить, возможно ли определить победителей, и если да, то определите, каким образом это можно сделать. Формат входных данных В первой строке на вход подается одно целое положительное число n (2 6 n 6 105 ). Далее во второй строке на вход подаются n целых положительных чисел ai (1 6 ai 6 109 ). Формат выходных данных Если ответа не существует, выведите -1. Иначе выведите четыре целых положительных числа в следующем формате: в первой строке выведите два числа: количество рыбы, пойманной первым победителем, и его номер; во второй строке выведите два числа: количество рыбы, пойманной вторым победителем, и его номер; Количество рыбы, пойманной первым победителем, должно быть не меньше, чем количество рыбы, пойманной вторым победителем. Если эти количества совпадают, то номер первого победителя должен быть меньше, чем номер второго.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выделить свойство мяча и его явления нужно !
Автор: sodrugestvo48
Что делать если монитор пишет вход не поддерживается видеонаблюдение
Автор: Sashagleb19
program raf105;
var i,j,del:integer;
begin
for i:=10 to 99 do
begin
del:=0;
for j:=1 to i do
begin
if (i mod j)=0
then del:= del+1;
end;
if del=3
then writeln(i);
end;
end.
2)program raf105;
var a,b,c:integer;
x:boolean;
begin
write('Введите число: ');
readln(a);
write('Введите искомую цифру: ');
readln(c);
while a<>0 do
begin
b:= a mod 10;
if x=false
then x:= b=c;
a:= (a-b) div 10;
end;
if x
then writeln('В ведённом числе есть искомая цифра')
else writeln('В ведённом числе нет искомой цифры');
end.
3)a) 2
b) 1
c) 0
d) 1
e) бесконечно
Язык программирования PascalABC