ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1119. Метро

Help!Why I got WA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!????????????
Послано Li Xun 16 апр 2003 18:26
var m,n,k,i,j,max,s:integer;
    ma:array[1..100] of integer;
    a:array[1..100,1..2] of integer;
begin
  read(n,m,k);
  for i:=1 to k do read(a[i,1],a[i,2]);
  for i:=1 to k-1 do
    for j:=i+1 to k do
      if (a[i,1]>a[j,1])or((a[i,1]=a[j,1])and(a[i,2]>a[j,2]))
        then begin
               s:=a[i,1]; a[i,1]:=a[j,1]; a[j,1]:=s;
               s:=a[i,2]; a[i,2]:=a[j,2]; a[j,2]:=s
             end;
  for i:=k downto 1 do
    begin
      max:=0;
      for j:=i+1 to k do
        if (a[j,1]>a[i,1])and(a[j,2]>a[i,2])and(ma[j]>max) then
max:=ma[j];
      ma[i]:=max+1
    end;
  writeln(round((m+n-2*ma[1]+sqrt(2)*ma[1])*100))
end.