第一题：program dig;type typearr=record
y,t:longint; s:double;
end;var a:array[1..20000] of typearr; t:array[1..10000] of longint; q:array[1..10000] of longint; v:array[1..10000] of boolean; f:array[1..10000] of double; x:array[1..10000] of double; y:array[1..10000] of double; i,j,k,n,l,r...
|
