!
program r;const n=20;var mas:array [0..n,0..n] of byte;i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer;begin
Насколько я понял,
tmp := a[10] и a[1] := tmp находятся вне цикла, так что a[1] в конце будет равно 21
<span>Если это задача то за 44 секунды. </span><span>Если практика, то скорость нестабильная, так что может и за 38 а может и за 60.</span>