Pagini recente » Cod sursa (job #404170) | Cod sursa (job #1256621) | Cod sursa (job #2180389) | Cod sursa (job #2144671) | Cod sursa (job #197632)
Cod sursa(job #197632)
type intrebare=record
a,b,s:integer;
end;
nushh=record
y,z:integer;
end;
var v:array [1..2000] of intrebare;
n,m:integer;
f,g:text;
procedure citire;
var i:integer;
begin
readln(f,n,m);
for i:=1 to m do readln(f,v[i].a,v[i].b,v[i].s);
end;
procedure numere;
var i,j,k:integer;
q:array [1..3] of nushh;
begin
for i:=1 to n do
begin
k:=0;
j:=0;
while k<>2 do
begin
j:=j+1;
if v[j].a=i then
begin
k:=k+1;
q[k].y:=j;
q[k].z:=v[j].b;
end
else if v[j].b=i then
begin
k:=k+1;
q[k].y:=j;
q[k].z:=v[j].a;
end;
end;
j:=0;
while k<>3 do
begin
j:=j+1;
if ((v[j].a=q[1].z) and (v[j].b=q[2].z)) or ((v[j].a=q[2].z) and (v[j].b=q[1].z)) then
begin
k:=k+1;
q[k].y:=j;
end;
end;
write(g,(v[q[1].y].s+v[q[2].y].s-v[q[3].y].s) div 2,' ');
end;
end;
begin
assign(f,'reconst.in');
assign(g,'reconst.out');
reset(f);
rewrite(g);
citire;
numere;
close(f);
close(g);
end.