Consr n=10; var a,i,max,min,k,p:integer; m:array [1..n] of integer; begin for i:=1 to n do begin a:=random(21)-10; m[i]:=a; write (m[i],' '); end; max:=m[1]; min:=m[1]; k:=1; p:=1; for i:=1 to n do begin if m[i]>max then begin max:=m[i]; p:=i; end; if m[i]<min then begin min:=m[i]; k:=i; end; end; if p>k then writeln ('минимальный раньше') else writeln ('максимальный раньше'); end.