PROGRAM GG; 
CONST F=5;L=8; 
VAR A:ARRAY[1..F,1..L] OF INTEGER; 
I,J,MIN,MAX,M,N,P,K:INTEGER; 
BEGIN 
MAX:=10; 
MIN:=-10; 
RANDOMIZE; 
FOR I:=1 TO F DO BEGIN 
WRITELN; 
FOR J:=1 TO L DO BEGIN 
A[I,J]:=RANDOM(21)-10; 
WRITE(A[I,J]); 
IF A[I,J]>MAX THEN BEGIN 
MAX:=A[I,J]; 
M:=I; 
N:=J; 
END; 
IF A[I,J]<MIN THEN BEGIN 
MIN:=A[I,J]; 
P:=I; 
K:=J; 
END; 
END; 
END; 
WRITELN; 
WRITELN('MIN=',MIN,'[',P,',',K,']'); 
WRITELN('MAX=',MAX,'[',M,',',N,']'); 
END.