source/193.pas,v

   1 head    1.1;
   2 access;
   3 symbols;
   4 locks; strict;
   5 comment @ * @;
   6
   7
   8 1.1
   9 date    2012.04.29.03.20.47;    author cvsadmin;        state Exp;
  10 branches;
  11 next    ;
  12 deltatype       text;
  13 kopt    kv;
  14 permissions     666;
  15 commitid        ca84f9cb38e4bac;
  16 filename        193.pas;
  17
  18
  19 desc
  20 @@
  21
  22
  23 1.1
  24 log
  25 @
  26 Committed on the Free edition of March Hare Software CVSNT Server.
  27 Upgrade to CVS Suite for more features and support:
  28 http://march-hare.com/cvsnt/
  29 @
  30 text
  31 @var
  32   a:array [0..1000,0..1000] of longint;
  33   n,m,i,min,j,k,x,y,t,ans:longint;
  34   v:array [0..1000] of longint;
  35
  36  begin
  37    readln(n,m);
  38    for i:=1 to m do
  39      begin
  40        read(x,y);
  41        readln(a[x,y]);
  42        a[y,x]:=a[x,y];
  43      end;
  44    v[1]:=1;
  45    for i:=1 to n-1 do
  46      begin
  47         min:=maxint; t:=1;
  48         for j:=1 to n do
  49           begin
  50                 if v[i]=1 then
  51                   begin
  52                         for k:=1 to n do
  53                           if (a[j,k]<min) and (a[j,k]<>0) then
  54                             begin
  55                                 min:=a[j,k];
  56                                 t:=j;
  57                             end;
  58                   end;
  59           end;
  60         if min<>maxint then
  61           begin
  62                 ans:=ans+min;
  63                 v[t]:=1;
  64           end;
  65      end;
  66    writeln(ans);
  67  end.@