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

>>阅读原文<<