uses crt;
const n=30;
var a:array [1..n] of integer;
    i,min,max,pos1,pos2: integer;
begin
     for i:=1 to n do begin
         a[i]:=random(21)-10;
         write(a[i]:4);
     end;
     min:=a[1];
     max:=a[1];
     for i:=1 to n do begin
         if a[i]<min then begin
            min:=a[i];
            pos1:=i;
         end;
         if a[i]>max then begin
            max:=a[i];
            pos2:=i;
         end;
     end;
     writeln;
     if p1>p2 then writeln('Раньше встречается максимальный элемент')
        else writeln('Раньше встречается минимальный элемент');
end.