Var a:array [1 ... 10, 1 ... 10] of integer;
i, j, max, min, imin, imax, jmin, jmax:integer;
begin
imax:=0; imin:=0; jmax:=0; jmin:=0;
max:=-maxint; min:=maxint;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i, j]:=random (89) + 10;
write (a[i, j],' ') ;
if a[i, j]
begin
min:=a[i, j];
imin:=i;
jmin:=j;
end;
if a[i, j]>max then
begin
max:=a[i, j];
imax:=i;
jmax:=j;
end;
end;
writeln;
end;
writeln;
writeln ('Максимальный элемент:', max) ;
writeln ('Его индекс ', imax,' ', jmax) ;
writeln ('Минимальный элемент:', min) ;
writeln ('Его индекс ', imin,' ', jmin) ;
end.