NOIP2017 金秋杯系列模擬賽 noip 提升組模擬賽 day1 2

var   f:array[0..5000]of longint;   max,min:array[1..5000,1..5000]of longint;   i,j,t,m,n,p,k,l,a:longint; begin   readln(t);   for i:=1 to t do     begin       fillchar(f,sizeof(f),0);       fillchar

>>阅读原文<<