Программист нанотехнологов Ограничение времени 1 секунда
Ограничение памяти 64.0 Мб
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Программист ученым-нанотехнологам. Он увлекся и работал всю ночь над результатами испытаний излучателей частиц. У него был бумажный список оценок, выставленных экспертами по результатам испытаний. К сожалению, программист любит пить кофе на рабочем месте. И список с результатами сильно пострадали, когда он под утро заснул и опрокинул чашку на стол. Теперь названия излучателей разобрать невозможно. Остались только полученные каждым излучателем оценки экспертов. Расположены результаты излучателей в том порядке, в котором они испытывались.
Некоторый излучатель интересует ученых (назовем его «Оптимум»). Программист знает, что количество очков Оптимума заканчивается на 5, а результат получившего максимальную оценку излучателя указан в списке где-то выше данных Оптимума. Также известно, что сразу после оценки Оптимума записана оценка некоторого нестабильно работающего излучателя, которая меньше оценки Оптимума. Теперь перед программистом поставлена задача определить, какое самое высокое место по оценкам экспертов мог занять Оптимум в этом испытании.
Будем считать, что излучатель занял k-е место, если ровно (k – 1) излучателей получили строго большую оценку, чем он. При этом максимальную оценку экспертов могли получить w излучателей. При этом они все будут считаться лучшими.
Требуется программисту и написать программу, которая по заданным результатам испытаний определяет, какое самое высокое место мог занять Оптимум по оценкам экспертов.
Формат ввода
Первая строка входного файла содержит целое число n — количество излучателей, участвовавших в испытаниях (3 ≤ n ≤ 100 000). Вторая строка входного файла содержит n положительных целых чисел, каждое из которых не превышает 1000, — очки, полученные излучателями, которые приведенные в том порядке, в котором излучатели испытывались.
Формат вывода
В выходном файле должно содержаться одно целое число — самое высокое место, которое мог занять Оптимум. Если не существует ни одного излучателя, который удовлетворяет, описанным выше условиям, выведите в выходной файл число 0.
Пример 1
Ввод Вывод
7
10 20 15 10 30 5 1 6
Пример 2
Ввод Вывод
3
15 15 10 1
Пример 3
Ввод Вывод
3
10 15 20 0
const
nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
Date=record
Day,Month,Year:integer
end;
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
a,y,m:integer;
begin
With Dat do begin
a:=(14 - month) div 12;
y:=Year-a;
m:=month+12*a-2;
DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
end
end;
procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
data.Day:=d; data.Month:=m; data.Year:=y
end;
procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
LastDay:Date;
n:integer;
begin
n:=nDay[month];
if (month=2) and (year mod 4 = 0) then Inc(n);
DMY2Date(n,month,year,LastDay);
n:=DOW(LastDay); // номер последнего дня недели
Wd.Month:=month; Wd.Year:=year;
if n<3 then Wd.Day:=LastDay.Day-(n+4)
else
if n=3 then Wd.Day:=LastDay.Day
else Wd.Day:=LastDay.Day+3-n;
Fr.Month:=month; Fr.Year:=year;
if n<5 then Fr.Day:=LastDay.Day-(n+2)
else
if n=3 then Fr.Day:=LastDay.Day
else Fr.Day:=LastDay.Day-1
end;
var
Wd,Fr:Date;
ff,mf:Text;
m:integer;
begin
Assign(ff,'father.txt'); Rewrite(ff);
Assign(mf,'mother.txt'); Rewrite(mf);
// Сентябрь-декабрь 2015 года
for m:=9 to 12 do begin
LastDays(m,2015,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
end;
// Январь - май 2016 года
for m:=1 to 5 do begin
LastDays(m,2016,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
end;
Close(ff); Close(mf)
end.
Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс
mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс