Имя входного файла: стандартный ввод имя выходного файла: стандартный вывод ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт в однобортном? да вы что, не знаете, что в однобортном сейчас уже никто не воюет? бургомистр, из сценария фильма «тот самый мюнхгаузен» одним из следующих пунктов в распорядке дня на 30 мая 1779 года барона мюнхгаузена значилась война с в 16: 00. согласно фильму, за десять минут до истечения срока ультиматума барона в газете было опубликовано сообщение о том, что признала независимость америки (в действительности это произошло 3 сентября 1783 года), и повод для объявления войны исчез. во времена барона мюнхгаузена вёрстка газеты была не самой простой технической и занимала достаточно длительное время. разумеется, это время зависело от количества страниц в газете, мастерства наборщика и многих других факторов, так что для разных газет время, необходимое на вёрстку, было различным. в этой считается, что время, необходимое на вёрстку газеты, всегда является целым положительным числом. в момент начала вёрстки содержание газеты фиксировалось, и изменить его было уже нельзя. если новость приходила ровно в этот момент, она уже не могла быть напечатана в газете. конечно, любая газета стремилась опубликовать все важные новости, которые стали известны до момента начала вёрстки. заметим, что любая новость становится известной всем газетам одновременно. свёрстанная газета сразу же печаталась и немедленно поступала в продажу. в городе издаётся n газет. для каждой из газет известно время поступления в продажу. также для каждой из них известно, было ли в ней опубликовано сообщение, ожидаемое мюнхгаузеном. по этим данным для каждой газеты можно определить минимально возможное время, которое могло быть затрачено на её вёрстку. ваша — определить максимальное из таких времён, а также номер газеты, на вёрстку которой могло быть затрачено это время. формат входных данных в первой строке содержится целое число n (1 6 n 6 3 · 105 ) — количество газет. во второй строке содержится n целых чисел s1, s2, . . , sn (1 6 sj 6 109 , j = 1, 2, . . , n), sj — время, в которое газета поступила в продажу. в третьей строке содержится n символов p и n (заглавные латинские буквы если на позиции #j находится символ p, это означает, что в газете #j сообщение было опубликовано. если же на позиции #j находится символ n, это означает, что в газете #j сообщение опубликовано не было. гарантируется, что сообщение было опубликовано хотя бы в одной газете.
Ответы
Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составьте алгоритм чтения книги
Автор: iracaenko153
Сфоткайте готовый вариант на чистом фоне и запишите решение задачи
Автор: alexandrxzx09
если не трудно Заранее благодарю!
Автор: Zhanna417
var
s,w:string;
begin
Write('Введите предложение: '); Readln(s);
Write('Введите искомое слово: '); Readln(w);
s:=' '+s+' ';
if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
else Writeln('Слово не входит в предложение')
end.
Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение
Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)