Cod sursa(job #197632)

Utilizator chelaru_t_achelaru traian andrei chelaru_t_a Data 5 iulie 2008 12:35:11
Problema Reconst Scor 0
Compilator fpc Status done
Runda Junior Challenge 2008 Marime 1.25 kb
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.