一道经典贪心题，用并查集来优化。 万恶的pku，这题pascal读入必须用seekeof判断是否读完数据，否则WA死你。。。 View Code 1 program pku1456(input,output); 2 var 3 x,w :array[0..11000] of longint; 4 f :array[0..11000]