ENG  RUS Timus Online Judge
Online Judge
Problems
Authors
Online contests
Site news
Webboard
Problem set
Submit solution
Judge status
Guide
Register
Authors ranklist
Current contest
Scheduled contests
Past contests
Rules
back to board

## Discussion of Problem 1273. Tie

wa7
Posted by nick's_name 4 Oct 2009 16:21
I've tried all the tests mentioned here, and the output was correct. Still I have WA on test 7
var a,b,c,d: array [1..102] of integer;
ind,n,i,j,k,z,v:integer;
begin
k:=0; z:=0;
for i:=1 to n do begin
else d[i]:=0;
end;
if z>n div 2 then
for j:=1 to n-1 do
for i:=1 to n-1 do
if d[i]>d[i+1] then begin
v:=d[i]; d[i]:=d[i+1]; d[i+1]:=v;
v:=a[i]; a[i]:=a[i+1]; a[i+1]:=v;
v:=b[i]; b[i]:=b[i+1]; b[i+1]:=v;
end;
if z<n div 2 then
for j:=1 to n-1 do
for i:=1 to n-1 do
if d[i]<d[i+1] then begin
v:=d[i]; d[i]:=d[i+1]; d[i+1]:=v;
v:=a[i]; a[i]:=a[i+1]; a[i+1]:=v;
v:=b[i]; b[i]:=b[i+1]; b[i+1]:=v;
end;
repeat
for i:=1 to n do c[i]:=0;
for i:=1 to n do
for j:=1 to n do
if (((a[i]>a[j]) and (b[i]<b[j])) or ((a[i]<a[j]) and (b[i]>b[j])))
then c[i]:=c[i]+1;
ind:=1;
for i:=2 to n do
if c[i]>c[ind] then ind:=i;
a[ind]:=0; b[ind]:=0;
if (c[ind]>0) then k:=k+1;
until c[ind]=0;
writeln(k);