dj 模板

var
  a:array[0..100,0..100] of integer;
  b,c,h:array[0..100] of integer;
  i,j,n,m,x,y,z:integer;
  qwq:integer;
procedure DJ(k:integer);
var
  i,q,t,s:integer;
  w:boolean;
begin


 s:=maxint;
 for i:=1 to n do if b[i]<s then begin s:=b[i];t:=i;end;


 w:=false;
 for i:=1 to n do
 begin
  q:=a[t,i]+b[t];
  if (a[t,i]>0)and(q<b[i]) then begin b[i]:=q;end;
 end;


 if w then DJ(t);
end;


begin
 qwq:=32767;
 readln(n,m);
 for i:=1 to 100 do b[i]:=qwq;
 for i:=1 to m do
 begin
  readln(x,y,z);
  a[x,y]:=z;
  if x=1 then b[y]:=z;
 end;
  h[1]:=1;
  DJ(1);
 for i:=1 to n do write(b[i],' ');
 writeln(b[n]);
end.