Задача "Семён и ожидание маршрутки" - Pascal

  1. Иногда уехать на другой берег бывает очень сложно. В такие моменты Семён развлекает себя тем, что запоминает номера проезжающих мимо маршруток и пытается определить самую нерасторопную из них. Семён ждёт уже N минут, и в i-ю минуту мимо него проезжала маршрутка с номером Ai. Семён обратил внимание, что все увиденные номера к текущему моменту появлялись как минимум дважды. Теперь Семён хочет определить максимальное время между появлениями маршруток с одинаковым номером. Помогите ему удовлетворить своё любопытство. Входные данные Первая строка содержит целое число N (2 ≤ N ≤ 100000) — количество минут, в течение которых Семён наблюдает за маршрутками. Вторая строка содержит N целых чисел Ai (1 ≤ Ai ≤ 100000) — номера проезжающих мимо маршруток. Каждый номер встречается не менее двух раз. Выходные данные Выведите одно целое число — максимальное время в минутах между последовательным появлением одинаковых номеров. Примеры входные данные 7 23 5 3 3 23 5 23 выходные данные 4 входные данные 5 2 2 1 2 1 выходные данные 2


textual

Код к задаче: «Задача "Семён и ожидание маршрутки" - Pascal»

var
a:array[1..10000]of longint;
i,n,t,rez,max:longint;
begin
readln(n);
max:=0;
for i:=1 to n do
begin
read(t);
if a[t]=0 then a[t]:=i
 else
 begin
 rez:=i-a[t];
 a[t]:=i;
 if rez>max then max:=rez;
 end;
end;
writeln(max);
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.300 из 5



Похожие ответы
  1. Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22

  1. На вход в файле INPUT.TXT подаётся две строчки: N - количество томов(максимум 32) и (от 1 до N)порядок томов книг Нужно найти и вывести в файл OUTPUT.TXT минимальное количество переставлений, чтобы все тома были расположены в порядке возрастания, при условии, что только можно брать любой том и ставить его последним.Пример:INPUT.TXT 5 2 1 3 4 5Output.txt 4 Сортировка происходит таким образом: 2 1 3 4 5 1. 1 3 4 5 2 2. 1 4 5 2 3 3. 1 5 2 3 4 4. 1 2 3 4 5ещё примерInput.txt 5 1 3 4 2 5Output.txt 3 Так: 1.1 4 2 5 3 2.1 2 5 3 4 3.1 2 3 4 5 Собственно говоря, каким образом можно решить эту задачу?Самому отсортировать несложно, но как это описать алгоритмом?Добавлено через 3 часа 3 минуты Вообщем, кому интересно.На stackoverflow подсказали, что на каждом шаге надо находить минимальный том, стоящий не на своем месте, и ставить его в конец."на своем месте" - то есть в порядке возрастания. для второго примера при первом шаге стоят в порядке возрастания 1 2 5 . 3 - минимальное, которое стоит не в порядке возрастания.соответственно 3 и ставим в конец.вот таким образом я смог решить задачу:

  1. Нужно сформировать с использованием процедуры массив элементов, каждый из которых встречается в массиве B1, B2, ..., Bn не более одного раза. Напишите программу, плиз.

  1. есть K людей и M монет. Найти: сколько получит последний человек монет, если первый взял себе самое большое количество монет но не более половины монет,второй взял самое большое количество монет с тех что остались но не более половины и так далее(каждый следующий брал себе максимально возможное количество монет с того что оставалось но не более половины с тех монет что оставались)

  1. Доброго времени суток! Хочу попросить помощи в решении данной задачи, т.к. у меня выходит очень длинный скрипт. Задача: Никола Тесла очень любил эксперименты с электричеством. Проведя со своим помощником первый успешный опыт при силе тока 0,001 Ампер в понедельник первого числа, Тесла ежедневно увеличивал силу тока в 1,5 раза, а его помощник втайне уменьшал в конце каждой недели силу тока на 0,005 Ампер. Какого числа Тесла лишится своего помощника, если сила тока в 0,2 Ампер для него смертельна? Буду очень благодарен!

  1. Дано число Х(1 ≤ X ≤ 10^12) в десятичной системе счисления Вывести систему счисления с минимальной основой, в которой число Х будет иметь одинаковые цифры. Пример: 3 ----2 1. «3» – это «11» в системе счисления с основой 2.

  1. Очень срочно, заранее благодарю

  1. Пожалуйста, помогите с массивами, не могу исправить ошибки 1.Вычислить значения 34 элементов одномерного целочисленного массива в интервале(-10.10) с использованием генератора случайных чисел. 2.Вычеслить среднегармоническое значение нечетных по значению элементов второй четверти массива. 3. Определить наименьший по модулю элемент среди ненулевых элементов всего массива. 4. Упорядочить отрицательные элементы первой четверти массива по убыванию модулей обратных значений.

  1. Полная задача cosx= 1-x^2/2!+x^4/4!-x^6/6!...+(-1)^n*x^2n/(2n)!. [2n/(2n)! не находится в степени с n]. Нужна блок-схема, прокрутка блок-схемы, программа. Находил прохожие программы, но ничего путного слепить не мог, всё отвергалось как инопланетное(