ENG
RUS
Timus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум
Обсуждение задачи
1510
. Порядок
Algo in O(n) paskal!
Послано
Dudka
23 апр 2014 22:07
var i,n,a,k,p:longint;
begin
readln(n);
k:=0;
p:=0;
for i:=1 to n do
begin
readln(a);
if k=0 then
begin
p:=a;
inc(k);
end else
if p=a then inc(k) else dec(k);
end;
writeln(p);
end.
© 2000–2024
Timus Online Judge Team
. Все права защищены.