Задача "Семён и ожидание маршрутки" - 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

Код:

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.

Похожие ответы
  1. Напечатать столбиком значения sin2,sin3...,sin20?

  1. кто знаком с такими динамическими переменными как списки? У меня с ними БОЛЬШИЕ проблемы О_о: помогите с задачей очень нужно, и пожалуйста просветите, что вообще можно (корректного) делать со списками??Задача: Удалить второй элемент из списка, и все ему равные. Я так понимаю, что второй элемент нужно поставить на первое место, и его удалить, а как с подобными?Добавлено через 2 часа 38 минут

  1. Необходимо сделать циклический сдвиг вправо в типизированном файле, не могу это реализовать. Сдвиг подразумевает это Ya On Tot tu Если введи 1, то необходимо поменять местами первый и последний элемент.

  1. Дана матрица A, состоящая из n строк и n столбцов. Изменить матрицу, заменив каждый отрицательный элемент, лежащий выше главной диагонали, его обсолютной величиной. Найти также сумму элементов главной диагонали. (нужно оч простое решение и без random!)

  1. Составьте программу шифрования текстового сообщения. Можно использовать такой способ шифрования. Шифровальщик задает ключ шифровки – целое число, который определяет величину смещения букв русского алфавита. Например, ключ = 3, тогда в тексте буква «а» заменяется на «г» и т. д.

  1. 1 задача! В заданном предложении, слова отделяются пробелами,за последним словом точка,определить количество слов начинающихся с буквы "с" 2 задача! В заданном положении посчитать,какая из букв первая или последняя встречается чаще! За ранее благодарен!!

  1. Помогите сделать программы 10 В магазине продается костюмная ткань. Ее цена в руб. за кв. метр. Подсчитать стоимость куска этой ткани длиной Х м и шириной У м. Исходные данные X,Y,B это второе задание 11 Найти площадь ромба по стороне и острому углу: , где а - сторона, - угол а, Эти задания надо в паскале сделать у меня не получаеться

  1. Характеристикой строки матрицы, назовем сумму её положительных элементов. Отсортировать строки матрицы в порядке возрастания характеристик.Добавлено через 21 минуту Сообщение от Сrack Характеристикой строки матрицы, назовем сумму её положительных элементов. Отсортировать строки матрицы в порядке возрастания характеристик. Помогите плизз

  1. Код program eleven; uses crt; type biblioteka = record name:string[8]; datav:integer; datas:integer; fio:string[8]; kartochka:1..2; end; var a:array[1..2] of biblioteka; k,i:integer; iskname:string; procedure odin; begin clrscr; writeln('ЙНННННННННННЛННННННННЛНННННННННЛННННННННННЛННННННННН»'); writeln('О kartochka є name є fio є datav є datas О'); writeln('О є є є є О'); writeln('О є є є є О'); writeln('ИНННННННННННИННННННННИНННННННННИННННННННННИНННННННННј'); end; procedure dva; begin for i:=1 to 2 do k:=3; gotoxy(5,k);readln(a[i].kartochka); gotoxy(15,k);readln(a[i].name); gotoxy(25,k);readln(a[i].fio); gotoxy(35,k);readln(a[i].datav); gotoxy(45,k);readln(a[i].datas); end; procedure tri; begin writeln ('nomer kartochki'); for i:=1 to 2 do begin readln (a[i].kartochka); if (a[i].kartochka = i) then writeln (a[i].name);end; begin for i:=1 to 2 do writeln; writeln ('vvedite name'); readln (iskname); if iskname = a[i].name then writeln (a[i].datav); end; end; begin odin; dva; tri; end. 2ое условие работает первое не хочет и в таблицу вписывается только одно значение( кто может помочь?


Нашли ошибку?
Развитие проекта
Яндекс.Метрика