|
Чемпионат по футболу
(100 баллов)
Решение:
var f,f1:text;
m:array[1..10001,1..10000] of byte;
a1,c,b,i,j,kol,k,n,k1:longint;
a:array[1..1000]of longint;
begin
assign(f,'input.txt');
assign(f1,'output.txt');
reset(f);
rewrite(f1);
read(f,n);
for i:=1 to n do
read(f,a[i]);
for i:=1 to n*(n-1)-1 do
begin
read(f,a1,b,c);
m[a1,b]:=c+3;
end;
for i:=1 to n do
m[i,i]:=10;
for i:=1 to n do
for j:=1 to n do
if m[i,j]=0 then begin k:=i;k1:=j;end;
for i:=1 to n do
begin
if m[k,i]=2 then kol:=kol+0;
if m[k,i]=3 then kol:=kol+1;
if m[k,i]=4 then kol:=kol+3;
end;
for i:=1 to n do
begin
if m[i,k]=2 then kol:=kol+3;
if m[i,k]=3 then kol:=kol+1;
if m[i,k]=4 then kol:=kol+0;
end;
kol:=a[k]-kol;
if kol=0 then writeln(f1,k,' ',k1,' ',-1);
if kol=1 then writeln(f1,k,' ',k1,' ',0);
if kol=3 then writeln(f1,k,' ',k1,' +',1);
close(f);
close(f1);
end.
|