Имя входного файла: стандартный ввод
имя выходного файла: стандартный вывод
ограничение по времени: 2 секунды
ограничение по памяти: 256 мегабайт
— ты меня заждалась, дорогая? извини,
меня задержал ньютон.
— кто это?
— . умнейший человек. я
непременно тебя с ним познакомлю.
диалог между карлом и мартой, из
сценария фильма «тот самый
мюнхгаузен»
барон мюнхгаузен весьма трепетно относится к своему распорядку дня. сначала он составляет
предварительную версию распорядка на несколько дней вперёд. в настоящий момент он включил в
предварительную версию n пунктов, определив для каждого из них день, в который он планирует
выполнить этот пункт.
затем для каждого из пунктов барон определяет наиболее ранний день, в который он сможет
подготовиться к выполнению этого пункта. нужно сказать, что на подготовку к выполнению любого
пункта мюнхгаузену требуется ровно один день, и в этот день он не будет заниматься подготовкой
ни к какому другому пункту. подготовка может быть проведена в любой из допустимых дней, но
не может быть проведена в день выполнения пункта. заметим, что выполнять какие-либо пункты
распорядка дня в день подготовки к некоторому другому пункту мюнхгаузен вполне может — если
ранее подготовился к этим каким-либо пунктам.
если бы всё зависело только от мюнхгаузена, он успел бы выполнить все пункты, включённые в
предварительную версию распорядка. но, увы, это далеко не так. вот, к примеру, софокл пригласил
его в гости, предлагая обсудить новую театральную постановку. однако посмотреть эту постановку
раньше её премьеры не получится.
так что при формировании окончательной версии распорядка мюнхгазуену приходится вычёркивать какие-то пункты, чтобы успеть выполнить все остальные. а выполнить он хочет как можно
больше пунктов. ваша — определить максимально возможное количество пунктов, которые
сможет выполнить барон, а также определить, какие это могут быть пункты.
формат входных данных
в первой строке содержится целое число n (1 6 n 6 3 · 105
) — количество пунктов в предварительной версии распорядка.
во второй строке содержатся целые числа d1, d2, . . , dn (2 6 dj 6 109
, j = 1, 2, . . , n), dj — день,
в который должен быть выполнен пункт #j.
в третьей строке содержатся целые числа p1, p2, . . , pn (1 6 pj < dj j = 1, 2, . . , n), pj — наиболее
ранний день, в который мюнхгаузен может подготовиться к выполнению пункта #j.
формат выходных данных
в первой строке выведите целое число m — максимально возможное количество пунктов, которое
сможет выполнить барон мюнхгаузен.
во второй строке выведите m целых чисел — номера пунктов, которые он сможет выполнить, в
том порядке, в котором он будет их выполнять.
если существует несколько вариантов ответа, выведите любой из них.
var
a: array[1..30] of integer;
b, s, i, min: integer;
begin
min := 999;
Randomize;
for i := 1 to 30 do begin
a[i] := random(9, -3);
s := s + a[i];
Write(a[i]:3);
end;
Writeln;
Writeln('Ниже нуля ');
for i := 1 to 30 do begin if a[i] > 0 then Write(i,'-го ');
end;
if a[i] = 0 then b := b + 1;
Writeln;
for i := 1 to 30 do
if a[i] < min then min := a[i];
Writeln('Самая низкая температура - ', min);
Writeln('Средняя температура ноября ', s / 30);
end.
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.
В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.